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: *** |