!----------------------------------------------------------------------- ! ! Purpose: Model control variables! ! Author: CCM Core Group! !-----------------------------------------------------------------------      common /comctl/ itsst   ,nsrest  ,iradsw  ,iradlw  ,iradae      common /comctl/ nrefrq      common /comctl/ anncyc  ,nlend   ,nlres   ,nlhst   ,lbrnch      common /comctl/ aeres   ,ozncyc  ,sstcyc  ,icecyc      common /comctl/ adiabatic,flxave      common /comctl/ trace_gas, trace_test1,trace_test2, trace_test3      common /comctl/ readtrace,ideal_phys, nsplit, iord, jord, kord, use_eta, aqua_planet      common /comctl/ doRamp_ghg, doRamp_so4, doRamp_scon, fullgrid      common /comctl/ print_step_cost      common /comctl/ doabsems, dosw, dolw, indirect      common /comctl_r8/ divdampn      integer itsst             ! Sea surf. temp. update freq. (iters)      integer nsrest            ! Restart flag      integer iradsw            ! Iteration freq. for shortwave radiation      integer iradlw            ! Iteration freq. for longwave radiation      integer iradae            ! Iteration freq. for absorptivity/emissivity      integer nrefrq            ! Restart write freq.! f-v dynamics specific! _ord = 1: first order upwind! _ord = 2: 2nd order van Leer (Lin et al 1994)! _ord = 3: standard PPM ! _ord = 4: enhanced PPM (default)      integer nsplit            ! Lagrangian time splits (Lin-Rood only)      integer iord              ! scheme to be used in E-W direction      integer jord              ! scheme to be used in N-S direction      integer kord              ! scheme to be used for vertical mapping      logical use_eta           ! Flag to use a's and b's set by dynamics/lr/set_eta.F90      logical aqua_planet       ! Flag to run model in "aqua planet" mode      logical anncyc            ! true => do annual cycle (otherwise perpetual)      logical nlend             ! true => end of run      logical nlres             ! true => continuation run      logical nlhst             ! true => regeneration run      logical lbrnch            ! true => branch run      logical aeres             ! true => read/write a/e data to/from restart file      logical ozncyc            ! true => cycle ozone dataset      logical sstcyc            ! true => cycle sst dataset      logical icecyc            ! true => cycle ice fraction dataset      logical adiabatic         ! true => no physics      logical ideal_phys        ! true => run "idealized" model configuration      logical flxave            ! true => send to coupler only on radiation time steps      logical trace_gas         ! true => turn on greenhouse gas code      logical trace_test1       ! true => turn on test tracer code with 1 tracer      logical trace_test2       ! true => turn on test tracer code with 2 tracers      logical trace_test3       ! true => turn on test tracer code with 3 tracers      logical readtrace         ! true => obtain initial tracer data from IC file      logical doRamp_ghg        ! true => turn on ramping for ghg      logical doRamp_so4        ! true => turn on ramping for so4      logical doRamp_scon       ! true => turn on ramping for scon      logical fullgrid          ! true => no grid reduction towards poles      logical print_step_cost   ! true => print per-timestep cost info      logical doabsems          ! True => abs/emiss calculation this timestep      logical dosw              ! True => shortwave calculation this timestep      logical dolw              ! True => longwave calculation this timestep      logical indirect          ! True => include indirect radiative effects of sulfate aerosols      real(r8) divdampn         ! Number of days to invoke divergence damper