Interface of the active land model component of CCSM the CLM (Community Land Model) with the main CCSM driver. This is a thin interface taking CCSM driver information in MCT (Model Coupling Toolkit) format and converting it to use by CLM.
USES:
use shr_kind_mod , only : r8 => shr_kind_r8 use mct_mod , only : mct_aVect implicit none SAVE private ! By default make data privatePUBLIC MEMBER FUNCTIONS:
public :: lnd_init_mct ! clm initialization public :: lnd_run_mct ! clm run phase public :: lnd_final_mct ! clm finalization/cleanupPUBLIC DATA MEMBERS:
REVISION HISTORY:
Author: Mariana Vertenstein Dec/18/2009 Make sure subroutines have documentation. Erik KluzekPRIVATE MEMBER FUNCTIONS:
private :: lnd_SetgsMap_mct ! Set the land model MCT GS map private :: lnd_chkAerDep_mct ! Check if aerosol deposition data is input or not private :: lnd_domain_mct ! Set the land model domain information private :: lnd_export_mct ! export land data to CCSM coupler private :: lnd_import_mct ! import data from the CCSM coupler to the land model #ifdef RTM private :: rof_SetgsMap_mct ! Set the river runoff model MCT GS map private :: rof_domain_mct ! Set the river runoff model domain information private :: rof_export_mct ! Export the river runoff model data to the CCSM coupler #endif !PRIVATE DATA MEMBERS: Time averaged flux fields type(mct_aVect) :: l2x_l_SNAP ! Snapshot of land to coupler data on the land grid type(mct_aVect) :: l2x_l_SUM ! Summation of land to coupler data on the land grid Time averaged counter for flux fields integer :: avg_count ! Number of times snapshots of above flux data summed together Atmospheric mode logical :: atm_prognostic ! Flag if active atmosphere component or not