pkg/atm2d/DRIVER.h

09a6f3668a Jeff*0001       COMMON /DRIVER_VARS/
                0002      &        dtcouple, dtatm, dtocn, startYear, endYear, taveDump,
                0003      &        ncall_atm, ncall_ocean
238f2dc6cd Jeff*0004 #ifdef NCEPWIND
                0005      &        , rand_newseed
                0006 #endif
09a6f3668a Jeff*0007        INTEGER dtcouple  ! coupling period (hrs)
                0008        INTEGER dtatm     ! atmos time step (hrs)
                0009        INTEGER dtocn     ! ocean time step (hrs)
                0010        INTEGER startYear ! starting year of simulation (jan 1)
                0011        INTEGER endYear   ! ending year of simulation (dec 31)
9274434acc Jean*0012        INTEGER taveDump  ! frequency of tave dumps for atm2ocn fluxes (yrs)
                0013        INTEGER ncall_atm ! number of atm steps in a coupling period
                0014        INTEGER ncall_ocean ! number of ocn steps in a coupling period
ad4dc8adbe Jeff*0015 #ifdef NCEPWIND
                0016        LOGICAL rand_newseed
                0017 #endif
09a6f3668a Jeff*0018
f6630d3a9c Jeff*0019
                0020       COMMON /DRIVER_FILENAMES/
                0021      &         caruptfile, fnememiss, last_nep
                0022       CHARACTER*120 caruptfile, fnememiss, last_nep
                0023
09a6f3668a Jeff*0024 #ifdef CPL_TEM
                0025       COMMON /DRIVER_VAR_TEM/
d09f90e9d3 Jeff*0026      &          nepav, n2oann, n2omn, nepmn,
                0027      &          aocuav, ch4ann, ch4mn, xco2ann
                0028        REAL*8 nepav, n2oann, n2omn, nepmn
6578ad8545 Jeff*0029        REAL*8 aocuav, ch4ann, ch4mn, xco2ann
d09f90e9d3 Jeff*0030 #endif
                0031
                0032 #ifdef DATA4TEM
                0033       COMMON /DRIVER_VAR_DATATEM/nfile
09a6f3668a Jeff*0034        INTEGER nfile
                0035 #endif
                0036
9274434acc Jean*0037 #ifdef CPL_OCEANCO2
5500f2df91 Jeff*0038 #  include "OCM.h"
09a6f3668a Jeff*0039       COMMON /GARYFLUX/pC_atm, wind_amp, fluxco2
6578ad8545 Jeff*0040        REAL*8 pC_atm(jm0)
                0041        REAL*8 wind_amp
                0042        REAL*8 fluxco2(jm0)
09a6f3668a Jeff*0043 #endif
                0044
                0045 #ifdef IPCC_EMI
fc22572e70 Jeff*0046       COMMON /DRIVER_VAR_IPCC/nemis
09a6f3668a Jeff*0047        INTEGER nemis
                0048 #endif
                0049
9274434acc Jean*0050 #ifdef CLM
00b238b9da Jeff*0051 #  include "CLM.h"
9274434acc Jean*0052 #  ifdef CPL_TEM
00b238b9da Jeff*0053 #    include "TEM.h"
09a6f3668a Jeff*0054       external tem2climate,updatelcluc,tem,tem_init,lcluc_init,
                0055      &   temclm_init
                0056 #  endif
                0057 #endif