1 |
jscott |
1.13 |
C $Header: /u/gcmpack/MITgcm/pkg/atm2d/DRIVER.h,v 1.12 2012/08/21 18:39:28 jscott Exp $ |
2 |
jmc |
1.4 |
C $Name: $ |
3 |
|
|
|
4 |
jscott |
1.1 |
COMMON /DRIVER_VARS/ |
5 |
|
|
& dtcouple, dtatm, dtocn, startYear, endYear, taveDump, |
6 |
|
|
& ncall_atm, ncall_ocean |
7 |
jscott |
1.13 |
#ifdef NCEPWIND |
8 |
|
|
& , rand_newseed |
9 |
|
|
#endif |
10 |
jscott |
1.1 |
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 |
jmc |
1.4 |
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 |
jscott |
1.12 |
#ifdef NCEPWIND |
19 |
|
|
LOGICAL rand_newseed |
20 |
|
|
#endif |
21 |
jscott |
1.1 |
|
22 |
jscott |
1.5 |
|
23 |
|
|
COMMON /DRIVER_FILENAMES/ |
24 |
|
|
& caruptfile, fnememiss, last_nep |
25 |
|
|
CHARACTER*120 caruptfile, fnememiss, last_nep |
26 |
|
|
|
27 |
jscott |
1.1 |
#ifdef CPL_TEM |
28 |
|
|
COMMON /DRIVER_VAR_TEM/ |
29 |
jscott |
1.7 |
& nepav, n2oann, n2omn, nepmn, |
30 |
|
|
& aocuav, ch4ann, ch4mn, xco2ann |
31 |
|
|
REAL*8 nepav, n2oann, n2omn, nepmn |
32 |
jscott |
1.6 |
REAL*8 aocuav, ch4ann, ch4mn, xco2ann |
33 |
jscott |
1.7 |
#endif |
34 |
|
|
|
35 |
|
|
#ifdef DATA4TEM |
36 |
|
|
COMMON /DRIVER_VAR_DATATEM/nfile |
37 |
jscott |
1.1 |
INTEGER nfile |
38 |
|
|
#endif |
39 |
|
|
|
40 |
jmc |
1.4 |
#ifdef CPL_OCEANCO2 |
41 |
jscott |
1.3 |
# include "OCM.h" |
42 |
jscott |
1.1 |
COMMON /GARYFLUX/pC_atm, wind_amp, fluxco2 |
43 |
jscott |
1.6 |
REAL*8 pC_atm(jm0) |
44 |
|
|
REAL*8 wind_amp |
45 |
|
|
REAL*8 fluxco2(jm0) |
46 |
jscott |
1.1 |
#endif |
47 |
|
|
|
48 |
|
|
#ifdef IPCC_EMI |
49 |
jscott |
1.11 |
COMMON /DRIVER_VAR_IPCC/nemis |
50 |
jscott |
1.1 |
INTEGER nemis |
51 |
|
|
#endif |
52 |
|
|
|
53 |
jmc |
1.4 |
#ifdef CLM |
54 |
jscott |
1.2 |
# include "CLM.h" |
55 |
jmc |
1.4 |
# ifdef CPL_TEM |
56 |
jscott |
1.2 |
# include "TEM.h" |
57 |
jscott |
1.1 |
external tem2climate,updatelcluc,tem,tem_init,lcluc_init, |
58 |
|
|
& temclm_init |
59 |
|
|
# endif |
60 |
|
|
#endif |