mkpft

INTERFACE:

 subroutine mkpft (fpft, ndiag,  noveg,  pctlnd_o, pft, pctpft)

DESCRIPTION:

   Make PFT data for vegetated patches (1 to maxpatch_pft)
   This dataset consists of the %cover of the [numpft]+1 PFTs used by
   the model. The %cover pertains to the "vegetated" portion of the
   grid cell and sums to 100. The real portion of each grid cell
   covered by each PFT is the PFT cover times the fraction of the
   grid cell that is land. This is the quantity preserved when
   area-averaging from the input (1/2 degree) grid to the models grid.

USES:

   use shr_kind_mod, only: r8 => shr_kind_r8
   use clm_varpar    !parameters
   use clm_varsur    !surface variables
   use clm_varctl    !run control variables
   use fileutils, only : getfil
   use areaMod      !area averaging routines 
   use shr_sys_mod, only : shr_sys_flush

ARGUMENTS:

   implicit none
   character(len=*), intent(in) :: fpft                        !input pft dataset file name
   integer , intent(in) :: ndiag                               !unit number for diagnostic output
   integer , intent(in) :: noveg                               !PFT number for no vegetation
   real(r8), intent(out):: pctlnd_o(lsmlon,lsmlat)             !output grid: % land per gridcell
   integer , intent(out):: pft(lsmlon,lsmlat,maxpatch_pft)     !output grid PFT (0 to numpft)
   real(r8), intent(out):: pctpft(lsmlon,lsmlat,maxpatch_pft)  !output grid PFT cover (% of vegetated area)\end{verbatim}{\sf CALLED FROM:}
\begin{verbatim}   subroutine mksrfdat in module mksrfdatMod

REVISION HISTORY:

   Author: Mariana Vertenstein