1 |
c |
2 |
c store directives for checkpoint level 1 |
3 |
c |
4 |
c created: heimbach@mit.edu 10-Jan-2002 |
5 |
c |
6 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
7 |
# ifdef ALLOW_ATM_TEMP |
8 |
CADJ STORE aqh0 = comlev1, key = ikey_dynamics |
9 |
CADJ STORE aqh1 = comlev1, key = ikey_dynamics |
10 |
CADJ STORE atemp0 = comlev1, key = ikey_dynamics |
11 |
CADJ STORE atemp1 = comlev1, key = ikey_dynamics |
12 |
CADJ STORE precip0 = comlev1, key = ikey_dynamics |
13 |
CADJ STORE precip1 = comlev1, key = ikey_dynamics |
14 |
CADJ STORE lwflux0 = comlev1, key = ikey_dynamics |
15 |
CADJ STORE lwflux1 = comlev1, key = ikey_dynamics |
16 |
CADJ STORE swflux0 = comlev1, key = ikey_dynamics |
17 |
CADJ STORE swflux1 = comlev1, key = ikey_dynamics |
18 |
# else |
19 |
CADJ STORE hflux0 = comlev1, key = ikey_dynamics |
20 |
CADJ STORE hflux1 = comlev1, key = ikey_dynamics |
21 |
CADJ STORE sflux0 = comlev1, key = ikey_dynamics |
22 |
CADJ STORE sflux1 = comlev1, key = ikey_dynamics |
23 |
# ifdef ALLOW_KPP |
24 |
CADJ STORE swflux0 = comlev1, key = ikey_dynamics |
25 |
CADJ STORE swflux1 = comlev1, key = ikey_dynamics |
26 |
# endif |
27 |
# endif /* ALLOW_ATM_TEMP */ |
28 |
# ifdef ALLOW_ATM_WIND |
29 |
CADJ STORE uwind0 = comlev1, key = ikey_dynamics |
30 |
CADJ STORE uwind1 = comlev1, key = ikey_dynamics |
31 |
CADJ STORE vwind0 = comlev1, key = ikey_dynamics |
32 |
CADJ STORE vwind1 = comlev1, key = ikey_dynamics |
33 |
# else |
34 |
CADJ STORE ustress0 = comlev1, key = ikey_dynamics |
35 |
CADJ STORE ustress1 = comlev1, key = ikey_dynamics |
36 |
CADJ STORE vstress0 = comlev1, key = ikey_dynamics |
37 |
CADJ STORE vstress1 = comlev1, key = ikey_dynamics |
38 |
# endif /* ALLOW_ATM_WIND */ |
39 |
# ifdef ALLOW_BULKFORMULAE |
40 |
CADJ STORE theta = comlev1, key = ikey_dynamics |
41 |
# endif |
42 |
#endif |
43 |
|
44 |
#ifdef ALLOW_OBCS |
45 |
#ifdef ALLOW_OBCS_NORTH |
46 |
CADJ STORE OBNt = comlev1, key = ikey_dynamics |
47 |
CADJ STORE OBNs = comlev1, key = ikey_dynamics |
48 |
#endif /* ALLOW_OBCS_NORTH */ |
49 |
#ifdef ALLOW_OBCS_SOUTH |
50 |
CADJ STORE OBSt = comlev1, key = ikey_dynamics |
51 |
CADJ STORE OBSs = comlev1, key = ikey_dynamics |
52 |
#endif /* ALLOW_OBCS_SOUTH */ |
53 |
#ifdef ALLOW_OBCS_EAST |
54 |
CADJ STORE OBEt = comlev1, key = ikey_dynamics |
55 |
CADJ STORE OBEs = comlev1, key = ikey_dynamics |
56 |
#endif /* ALLOW_OBCS_EAST */ |
57 |
#ifdef ALLOW_OBCS_WEST |
58 |
CADJ STORE OBWt = comlev1, key = ikey_dynamics |
59 |
CADJ STORE OBWs = comlev1, key = ikey_dynamics |
60 |
#endif /* ALLOW_OBCS_WEST */ |
61 |
#endif /* ALLOW_OBCS */ |
62 |
|