Module containing run control variablesUSES:
use shr_kind_mod, only: r8 => shr_kind_r8PUBLIC TYPES:
implicit none save Run control variables character(len= 32) :: caseid !case id character(len=256) :: ctitle !case title integer :: nsrest !0: initial run. 1: restart: 3: branch Initial file variables character(len= 8) :: hist_crtinic !if set to 'MONTHLY' or 'YEARLY', write initial cond. file Long term archive variables character(len=256):: archive_dir !long term archive directory (can be mass store) character(len= 8) :: mss_wpass !mass store write password for output files integer :: mss_irt !mass store retention period Run input files character(len=256) :: finidat !initial conditions file name character(len=256) :: fsurdat !surface data file name character(len=256) :: fpftcon !ASCII data file with PFT physiological constants character(len=256) :: nrevsn !restart data file name for branch run character(len=256) :: frivinp_rtm !RTM input data file name character(len=256) :: offline_atmdir !directory for input offline model atm data forcing files (Mass Store ok) Files and logical variables for generating surface dataset real(r8) :: mksrf_offline_edgen !northern edge of grid (degrees): > -90 and < 90 real(r8) :: mksrf_offline_edgee !eastern edge of grid (degrees) : see following notes real(r8) :: mksrf_offline_edges !southern edge of grid (degrees): >= -90 and < 90 real(r8) :: mksrf_offline_edgew !western edge of grid (degrees) : see following notes character(len=256) :: mksrf_offline_fgrid !land grid file name to use instead of generating grid character(len=256) :: mksrf_offline_fnavyoro !directory for 20 min navy orography dataset character(len=256) :: mksrf_fvegtyp !when making [fsurdat]: vegetation data file name character(len=256) :: mksrf_fsoitex !when making [fsurdat]: soil texture data file name character(len=256) :: mksrf_fsoicol !when making [fsurdat]: soil color data file name character(len=256) :: mksrf_flanwat !when making [fsurdat]: inland water data file name character(len=256) :: mksrf_furban !when making [fsurdat]: urban data file name character(len=256) :: mksrf_fglacier !when making [fsurdat]: glacier data file name character(len=256) :: mksrf_flai !when making [fsurdat]: lai data filename Physics integer :: irad !solar radiation frequency (iterations) logical :: conchk !true => turn on error energy and water conservation check logical :: wrtdia !true => write global average diagnostics to std out logical :: csm_doflxave !true => only communicate with flux coupler on albedo calc time steps Rtm control variables integer :: rtm_nsteps !if > 1, average rtm over rtm_nsteps time steps Derived variables (run, history and restart file) character(len=256) :: rpntdir !directory name for local restart pointer file character(len=256) :: rpntfil !file name for local restart pointer file character(len=80) :: version !model version numberREVISION HISTORY:
Created by Mariana Vertenstein and Gordon Bonan