Fortran: Module Interface surfrdMod (Source File: surfrdMod.F90)

Contains methods for reading in surface data file and determining two-dimensional subgrid weights as well as writing out new surface dataset. When reading in the surface dataset, determines array which sets the PFT for each of the [maxpatch] patches and array which sets the relative abundance of the PFT. Also fills in the PFTs for vegetated portion of each grid cell. Fractional areas for these points pertain to "vegetated" area not to total grid area. Need to adjust them for fraction of grid that is vegetated. Also fills in urban, lake, wetland, and glacier patches.

USES:

   use shr_kind_mod, only : r8 => shr_kind_r8
   use abortutils  , only : endrun
   use clm_varpar  , only : lsmlon, lsmlat
   use clm_varpar  , only : nlevsoi, numpft, &
                            maxpatch_pft, numcft, maxpatch, &
                            npatch_urban, npatch_lake, npatch_wet, npatch_glacier, &
                            maxpatch_urb
   use clm_varsur  , only : wtxy, vegxy
   use clm_varsur  , only : pctspec
   use clm_varctl  , only : iulog
   use ncdio
   use clmtype
   use spmdMod                         
   use clm_varctl,   only : scmlat, scmlon, single_column
   use decompMod   , only : get_proc_bounds,gsMap_lnd_gdc2glo,ldecomp

PUBLIC TYPES:

   implicit none
   save

PUBLIC MEMBER FUNCTIONS:

   public :: surfrd  ! Read surface dataset and determine subgrid weights
   public :: surfrd_get_grid  ! Read surface dataset into domain
   public :: surfrd_get_latlon  ! Read surface dataset into domain
   public :: surfrd_get_frac  ! Read land fraction into domain
   public :: surfrd_get_topo  ! Read topography into domain

REVISION HISTORY:

   Created by Mariana Vertenstein
   Updated by T Craig

PRIVATE MEMBER FUNCTIONS:

   private :: surfrd_wtxy_special
   private :: surfrd_wtxy_veg_rank
   private :: surfrd_wtxy_veg_all
   private :: surfrd_wtxy_veg_dgvm
   private :: surfrd_mkrank