pkg/aim_v23/AIM_CO2.h

4c105e462e Davi*0001 #ifdef ALLOW_AIM
                0002
                0003 C     *==========================================================*
                0004 C     | AIM_CO2.h
                0005 C     | o AIM CO2 fields.
                0006 C     *==========================================================*
                0007
2a4f7f3ad0 Jean*0008 C---  COMMON /AIM_CO2RAD/
                0009 C     aim_pCO2     :: uniform pCO2 value for AIM radiation
                0010       COMMON /AIM_CO2RAD/ aim_pCO2
                0011       _RL aim_pCO2
                0012
4c105e462e Davi*0013 #ifdef ALLOW_AIM_CO2
2a4f7f3ad0 Jean*0014 C---  COMMON /AIM_CO2VAR/
4c105e462e Davi*0015 C     aim_CO2      :: atmospheric pCO2 (2d)
                0016 C     aimflxCo2    :: air-sea CO2 flux in mol/m^2/s (2d)
2a4f7f3ad0 Jean*0017 C     atm_CO2_Moles:: number of CO2 moles in the atmosphere
870deba1f6 Davi*0018 C     atm_pC02     :: atmospheric pCO2 of well-mixed atm. box
4c105e462e Davi*0019
2a4f7f3ad0 Jean*0020       COMMON /AIM_CO2VAR/ aim_CO2, aimflxCo2, atm_CO2_Moles, atm_pCO2
2b1795828b Jean*0021       _RL aim_CO2  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
870deba1f6 Davi*0022       _RL aimflxCo2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
2a4f7f3ad0 Jean*0023       _RL atm_CO2_Moles
870deba1f6 Davi*0024       _RL atm_pCO2
2a4f7f3ad0 Jean*0025
                0026 C     total_atmos_moles :: total number of moles in the Earth atmosphere
                0027 C                          (taken from DIC pkg, dic_atmos.F)
4c105e462e Davi*0028       _RL total_atmos_moles
                0029       PARAMETER ( total_atmos_moles = 1.77D20 )
2a4f7f3ad0 Jean*0030 #endif /* ALLOW_AIM_CO2 */
4c105e462e Davi*0031
                0032 #endif /* ALLOW_AIM */
                0033
                0034 CEH3 ;;; Local Variables: ***
                0035 CEH3 ;;; mode:fortran ***
                0036 CEH3 ;;; End: ***