Utilities to perfrom subgrid averaging
USES:
use shr_kind_mod, only: r8 => shr_kind_r8 use clmtype use clm_varcon, only : spval, isturb, icol_roof, icol_sunwall, icol_shadewall, & icol_road_perv, icol_road_imperv use clm_varctl, only : iulog use abortutils, only : endrunPUBLIC TYPES:
implicit none savePUBLIC MEMBER FUNCTIONS:
public :: p2c ! Perfrom an average from pfts to columns public :: p2l ! Perfrom an average from pfts to landunits public :: p2g ! Perfrom an average from pfts to gridcells public :: c2l ! Perfrom an average from columns to landunits public :: c2g ! Perfrom an average from columns to gridcells public :: l2g ! Perfrom an average from landunits to gridcells interface p2c module procedure p2c_1d module procedure p2c_2d module procedure p2c_1d_filter module procedure p2c_2d_filter end interface interface p2l module procedure p2l_1d module procedure p2l_2d end interface interface p2g module procedure p2g_1d module procedure p2g_2d end interface interface c2l module procedure c2l_1d module procedure c2l_2d end interface interface c2g module procedure c2g_1d module procedure c2g_2d end interface interface l2g module procedure l2g_1d module procedure l2g_2d end interfaceREVISION HISTORY:
Created by Mariana Vertenstein 12/03