Area averaging routines Thes routines are used for area-average mapping of a field from one grid to another.USES:
use shr_kind_mod, only: r8 => shr_kind_r8 use clm_varcon, only : re use shr_const_mod, only : SHR_CONST_PIPUBLIC TYPES:
implicit none save integer, public, parameter :: maxovr = 100000PUBLIC MEMBER FUNCTIONS:
public :: areaini ! area averaging initialization
public :: areaave ! area averaging of field from input to output grids
public :: areaini_point ! area averaging initialization for single grid cell
interface celledge
module procedure celledge_regional !Southern and western edges of grid cells - regional grid
module procedure celledge_global !Southern and western edges of grid cells - global grid
end interface
interface cellarea
module procedure cellarea_regional !Area of grid cells (square kilometers) - regional grid
module procedure cellarea_global !Area of grid cells (square kilometers)- global grid
end interface
public :: mkmxovr ! find maxinum numver of overlapping cells between input/output grid
REVISION HISTORY:
Created by Sam Levis Updated to clm2.1 data structures by Mariana Vertenstein