| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/atm2d/DRIVER.h,v 1.12 2012/08/21 18:39:28 jscott Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
COMMON /DRIVER_VARS/ |
| 5 |
& dtcouple, dtatm, dtocn, startYear, endYear, taveDump, |
| 6 |
& ncall_atm, ncall_ocean |
| 7 |
#ifdef NCEPWIND |
| 8 |
& , rand_newseed |
| 9 |
#endif |
| 10 |
INTEGER dtcouple ! coupling period (hrs) |
| 11 |
INTEGER dtatm ! atmos time step (hrs) |
| 12 |
INTEGER dtocn ! ocean time step (hrs) |
| 13 |
INTEGER startYear ! starting year of simulation (jan 1) |
| 14 |
INTEGER endYear ! ending year of simulation (dec 31) |
| 15 |
INTEGER taveDump ! frequency of tave dumps for atm2ocn fluxes (yrs) |
| 16 |
INTEGER ncall_atm ! number of atm steps in a coupling period |
| 17 |
INTEGER ncall_ocean ! number of ocn steps in a coupling period |
| 18 |
#ifdef NCEPWIND |
| 19 |
LOGICAL rand_newseed |
| 20 |
#endif |
| 21 |
|
| 22 |
|
| 23 |
COMMON /DRIVER_FILENAMES/ |
| 24 |
& caruptfile, fnememiss, last_nep |
| 25 |
CHARACTER*120 caruptfile, fnememiss, last_nep |
| 26 |
|
| 27 |
#ifdef CPL_TEM |
| 28 |
COMMON /DRIVER_VAR_TEM/ |
| 29 |
& nepav, n2oann, n2omn, nepmn, |
| 30 |
& aocuav, ch4ann, ch4mn, xco2ann |
| 31 |
REAL*8 nepav, n2oann, n2omn, nepmn |
| 32 |
REAL*8 aocuav, ch4ann, ch4mn, xco2ann |
| 33 |
#endif |
| 34 |
|
| 35 |
#ifdef DATA4TEM |
| 36 |
COMMON /DRIVER_VAR_DATATEM/nfile |
| 37 |
INTEGER nfile |
| 38 |
#endif |
| 39 |
|
| 40 |
#ifdef CPL_OCEANCO2 |
| 41 |
# include "OCM.h" |
| 42 |
COMMON /GARYFLUX/pC_atm, wind_amp, fluxco2 |
| 43 |
REAL*8 pC_atm(jm0) |
| 44 |
REAL*8 wind_amp |
| 45 |
REAL*8 fluxco2(jm0) |
| 46 |
#endif |
| 47 |
|
| 48 |
#ifdef IPCC_EMI |
| 49 |
COMMON /DRIVER_VAR_IPCC/nemis |
| 50 |
INTEGER nemis |
| 51 |
#endif |
| 52 |
|
| 53 |
#ifdef CLM |
| 54 |
# include "CLM.h" |
| 55 |
# ifdef CPL_TEM |
| 56 |
# include "TEM.h" |
| 57 |
external tem2climate,updatelcluc,tem,tem_init,lcluc_init, |
| 58 |
& temclm_init |
| 59 |
# endif |
| 60 |
#endif |
Parent Directory
| 
Revision Log
| 
Revision Graph