| 1 |
jscott |
1.1 |
COMMON /DRIVER_VARS/ |
| 2 |
|
|
& dtcouple, dtatm, dtocn, startYear, endYear, taveDump, |
| 3 |
|
|
& ncall_atm, ncall_ocean |
| 4 |
|
|
INTEGER dtcouple ! coupling period (hrs) |
| 5 |
|
|
INTEGER dtatm ! atmos time step (hrs) |
| 6 |
|
|
INTEGER dtocn ! ocean time step (hrs) |
| 7 |
|
|
INTEGER startYear ! starting year of simulation (jan 1) |
| 8 |
|
|
INTEGER endYear ! ending year of simulation (dec 31) |
| 9 |
|
|
INTEGER taveDump ! frequency of tave dumps for atm2ocn fluxes (yrs) |
| 10 |
|
|
INTEGER ncall_atm ! number of atm steps in a coupling period |
| 11 |
|
|
INTEGER ncall_ocean ! number of ocn steps in a coupling period |
| 12 |
|
|
|
| 13 |
|
|
#ifdef CPL_TEM |
| 14 |
|
|
COMMON /DRIVER_VAR_TEM/ |
| 15 |
|
|
& nepan, nepav, n2oann, n2omn, nepmn, |
| 16 |
|
|
& aocuav, ch4ann, ch4mn, xco2ann, nfile |
| 17 |
|
|
REAL*4 nepan, nepav, n2oann, n2omn, nepmn |
| 18 |
|
|
REAL*4 aocuav, ch4ann, ch4mn, xco2ann |
| 19 |
|
|
INTEGER nfile |
| 20 |
|
|
#endif |
| 21 |
|
|
|
| 22 |
|
|
#ifdef CPL_OCEANCO2 |
| 23 |
|
|
COMMON /DRIVER_VAR_CO2/ |
| 24 |
|
|
& ocumn, ocuptp, fluxco2mn |
| 25 |
|
|
REAL*4 ocumn |
| 26 |
|
|
REAL*4 ocuptp |
| 27 |
|
|
REAL*4 fluxco2mn(jm0) |
| 28 |
|
|
|
| 29 |
|
|
COMMON /GARYFLUX/pC_atm, wind_amp, fluxco2 |
| 30 |
|
|
REAL*4 pC_atm(jm0) |
| 31 |
|
|
REAL*4 wind_amp |
| 32 |
|
|
REAL*4 fluxco2(jm0) |
| 33 |
|
|
#endif |
| 34 |
|
|
|
| 35 |
|
|
#ifdef IPCC_EMI |
| 36 |
|
|
COMMON /DRIVER_VAR_IPCC/nemis |
| 37 |
|
|
INTEGER nemis |
| 38 |
|
|
|
| 39 |
|
|
COMMON/ BACKGRGHG/ghgbgr |
| 40 |
|
|
REAL*4 ghgbgr(5) |
| 41 |
|
|
#endif |
| 42 |
|
|
|
| 43 |
|
|
#ifdef CLM |
| 44 |
|
|
# include "CLM.COM" |
| 45 |
|
|
# ifdef CPL_TEM |
| 46 |
|
|
# include "TEM.COM" |
| 47 |
|
|
external tem2climate,updatelcluc,tem,tem_init,lcluc_init, |
| 48 |
|
|
& temclm_init |
| 49 |
|
|
# endif |
| 50 |
|
|
#endif |
Parent Directory
| 
Revision Log
| 
Revision Graph