1 |
C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_ad_check_lev2_dir.h,v 1.2 2009/10/14 05:02:20 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_DIC |
5 |
|
6 |
C common CARBON_NEEDS |
7 |
CADJ STORE pH = tapelev2, key = ilev_2 |
8 |
CADJ STORE fice = tapelev2, key = ilev_2 |
9 |
CADJ STORE silica = tapelev2, key = ilev_2 |
10 |
CADJ STORE atmospco2 = tapelev2, key = ilev_2 |
11 |
|
12 |
C common dic_load |
13 |
CADJ STORE dicwind0,dicwind1 = tapelev2, key = ilev_2 |
14 |
CADJ STORE ice0,ice1 = tapelev2, key = ilev_2 |
15 |
CADJ STORE atmosp0,atmosp1 = tapelev2, key = ilev_2 |
16 |
CADJ STORE silica0,silica1 = tapelev2, key = ilev_2 |
17 |
#ifdef ALLOW_FE |
18 |
CADJ STORE feinput0,feinput1 = tapelev2, key = ilev_2 |
19 |
#endif |
20 |
|
21 |
CADJ STORE gsm_s = tapelev2, key = ilev_2 |
22 |
CADJ STORE co2atmos = tapelev2, key = ilev_2 |
23 |
CADJ STORE total_atmos_carbon = tapelev2, key = ilev_2 |
24 |
|
25 |
#ifdef DIC_BIOTIC |
26 |
CADJ STORE omegaC = tapelev2, key = ilev_2 |
27 |
#endif |
28 |
#ifdef ALLOW_COST |
29 |
CADJ STORE totcost = tapelev2, key = ilev_2 |
30 |
#endif |
31 |
|
32 |
#endif /* ALLOW_DIC */ |
33 |
|