include file: comtim.h 5 c c $Id: comtim.h,v 1.1 1998/04/01 07:11:09 ccm Exp $ c $Author: ccm $ c C C Model time variables C common/comtim/calday ,dtime ,twodt ,divdampn,nrstrt , $ nstep ,nstepr ,nestep ,nelapse ,nstop , $ mdbase ,msbase ,mdcur ,mscur ,mbdate , $ mbsec ,mcdate ,mcsec ,nndbas ,nnsbas , $ nnbdat ,nnbsec ,doabsems,dosw ,dolw C real calday ! Current calendar day = julian day + fraction real dtime ! Time step in seconds (delta t) real twodt ! 2 * delta t real divdampn ! Number of days to invoke divergence damper integer nrstrt ! Starting time step of restart run (constant) integer nstep ! Current time step integer nstepr ! Current time step of restart (updated w/nstep) integer nestep ! Time step on which to stop run integer nelapse ! Requested elapsed time for model run integer nstop ! nestep + 1 integer mdbase ! Base day of run integer msbase ! Base seconds of base day integer mdcur ! Current day of run integer mscur ! Current seconds of current day integer mbdate ! Base date of run (yymmdd format) integer mbsec ! Base seconds of base date integer mcdate ! Current date of run (yymmdd format) integer mcsec ! Current seconds of current date integer nndbas ! User input base day integer nnsbas ! User input base seconds of input base day integer nnbdat ! User input base date (yymmdd format) integer nnbsec ! User input base seconds of input base date logical doabsems ! True => abs/emiss calculation this timestep logical dosw ! True => shortwave calculation this timestep logical dolw ! True => longwave calculation this timestep C