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_PI use abortutils, only: endrunPUBLIC TYPES:
implicit none savePUBLIC MEMBER FUNCTIONS:
public :: areaini ! area averaging initialization
public :: areaave ! area averaging of field from input to output gri
public :: areaini_point ! area averaging initialization for single grid ce
interface celledge
module procedure celledge_regional !Southern and western edges of grid
module procedure celledge_global !Southern and western edges of grid
end interface
interface cellarea
module procedure cellarea_regional !Area of grid cells (square kilomete
module procedure cellarea_global !Area of grid cells (square kilomete
end interface
public :: mkmxovr ! find maxinum numver of overlapping cells between
REVISION HISTORY:
Created by Sam Levis Updated to clm2.1 data structures by Mariana Vertenstein