1 |
dfer |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_AIM |
5 |
|
|
|
6 |
|
|
C *==========================================================* |
7 |
|
|
C | AIM_CO2.h |
8 |
|
|
C | o AIM CO2 fields. |
9 |
|
|
C *==========================================================* |
10 |
|
|
|
11 |
|
|
#ifdef ALLOW_AIM_CO2 |
12 |
|
|
C--- COMMON /AIMCO2/ |
13 |
|
|
C aim_CO2 :: atmospheric pCO2 (2d) |
14 |
|
|
C aimflxCo2 :: air-sea CO2 flux in mol/m^2/s (2d) |
15 |
|
|
C Atm_CO2_Moles:: number of CO2 moles in the atmosphere |
16 |
|
|
C Aim_CO2_Flag :: flag for CO2 mode, (1:prescribed, 2:interactive) |
17 |
|
|
C atm_pCo2 :: atmospheric pCO2 of well-mixed atm. box |
18 |
|
|
C precribed value if mode=1 or initial value if mode=2 |
19 |
|
|
C total_atmos_moles :: total number of moles in the Earth atmosphere |
20 |
|
|
C (taken from DIC pkg, dic_atmos.F) |
21 |
|
|
|
22 |
|
|
COMMON /AIMCO2/ aim_CO2, aimflxCo2, Atm_CO2_Moles, |
23 |
|
|
& Aim_CO2_Flag, atm_pCo2 |
24 |
|
|
_RL aim_CO2(NGP,MAX_NO_THREADS) |
25 |
|
|
_RL aimflxCo2(NGP,MAX_NO_THREADS) |
26 |
|
|
_RL Atm_CO2_Moles |
27 |
|
|
INTEGER Aim_CO2_Flag |
28 |
|
|
_RL atm_pCo2 |
29 |
|
|
_RL total_atmos_moles |
30 |
|
|
PARAMETER ( total_atmos_moles = 1.77D20 ) |
31 |
|
|
#endif |
32 |
|
|
|
33 |
|
|
#endif /* ALLOW_AIM */ |
34 |
|
|
|
35 |
|
|
CEH3 ;;; Local Variables: *** |
36 |
|
|
CEH3 ;;; mode:fortran *** |
37 |
|
|
CEH3 ;;; End: *** |