1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_CO2.h,v 1.1 2009/01/05 15:15:33 dfer Exp $ |
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 atmpC02init :: atmospheric pCO2 of well-mixed atm. box |
18 |
C precribed value if mode=1 or initial value if mode=2 |
19 |
C atm_pC02 :: atmospheric pCO2 of well-mixed atm. box |
20 |
C total_atmos_moles :: total number of moles in the Earth atmosphere |
21 |
C (taken from DIC pkg, dic_atmos.F) |
22 |
|
23 |
COMMON /AIMCO2/ aim_CO2, aimflxCo2, Atm_CO2_Moles, atm_pCO2, |
24 |
& atmpCO2init, Aim_CO2_Flag |
25 |
_RL aim_CO2(NGP,MAX_NO_THREADS) |
26 |
_RL aimflxCo2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
27 |
_RL Atm_CO2_Moles |
28 |
_RL atm_pCO2 |
29 |
_RL atmpCO2init |
30 |
INTEGER Aim_CO2_Flag |
31 |
_RL total_atmos_moles |
32 |
PARAMETER ( total_atmos_moles = 1.77D20 ) |
33 |
#endif |
34 |
|
35 |
#endif /* ALLOW_AIM */ |
36 |
|
37 |
CEH3 ;;; Local Variables: *** |
38 |
CEH3 ;;; mode:fortran *** |
39 |
CEH3 ;;; End: *** |