Utilities to perfrom subgrid averagingUSES:
use shr_kind_mod, only: r8 => shr_kind_r8 use clmtype use clm_varcon, only : spval 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 interface
REVISION HISTORY:
Created by Mariana Vertenstein 12/03