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.h" |
45 |
# ifdef CPL_TEM |
46 |
# include "TEM.h" |
47 |
external tem2climate,updatelcluc,tem,tem_init,lcluc_init, |
48 |
& temclm_init |
49 |
# endif |
50 |
#endif |