pkg/aim_v23/AIM_PARAMS.h

65007c221b Jean*0001 #ifdef ALLOW_AIM
                0002 C     *==========================================================*
2a4f7f3ad0 Jean*0003 C     | AIM_PARAMS.h
                0004 C     | o Header file for AIM package parameters
65007c221b Jean*0005 C     |   e.g.: output/input file & parameters;
                0006 C     |         forcing & interface parameters;
                0007 C     *==========================================================*
                0008
                0009 C--   COMMON /AIM_PARM_L/ Logical valued parameters for AIM
                0010 C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni
                0011 C     aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP)
                0012 C     aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc)
b3097ed02d Jean*0013 C     aim_energPrecip :: account for energy of precipitation (snow & rain temp)
                0014 C     aim_splitSIOsFx :: compute separately Sea-Ice & Ocean surf. Flux
                0015 C                 (also land SW & LW) ; default=F as in original version
e749d70ece Jean*0016 C     aim_clrSkyDiag  :: compute clear-sky radiation for diagnostics
2a4f7f3ad0 Jean*0017       COMMON /AIM_PARM_L/
ad0ca66649 Ed H*0018      &     aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,
                0019      &     aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag,
b7411f1a84 Jean*0020      &     aim_snapshot_mnc, aim_snapshot_mdsio,
                0021      &     aim_pickup_write_mnc, aim_pickup_write_mdsio,
                0022      &     aim_pickup_read_mnc, aim_pickup_read_mdsio
65007c221b Jean*0023       LOGICAL aim_useFMsurfBC
                0024       LOGICAL aim_useMMsurfFc
                0025       LOGICAL aim_surfPotTemp
b3097ed02d Jean*0026       LOGICAL aim_energPrecip
                0027       LOGICAL aim_splitSIOsFx
e749d70ece Jean*0028       LOGICAL aim_clrSkyDiag
2a4f7f3ad0 Jean*0029       LOGICAL
b7411f1a84 Jean*0030      &     aim_snapshot_mnc, aim_snapshot_mdsio,
                0031      &     aim_pickup_write_mnc, aim_pickup_write_mdsio,
                0032      &     aim_pickup_read_mnc, aim_pickup_read_mdsio
65007c221b Jean*0033
                0034 C--   COMMON /AIM_PARM_C/ Character valued parameters for AIM
4b996cbf32 Jean*0035 C     aim_LandFile :: file name for Land fraction
65007c221b Jean*0036 C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files
                0037 C     aim_albFile  :: file name for Albedo input file   (F.M. surfBC)
                0038 C     aim_vegFile  :: file name for vegetation fraction (F.M. surfBC)
                0039 C     aim_sstFile  :: file name for  Sea.Surf.Temp      (F.M. surfBC)
                0040 C     aim_lstFile  :: file name for Land.Surf.Temp      (F.M. surfBC)
                0041 C     aim_oiceFile :: file name for Sea Ice fraction    (F.M. surfBC)
                0042 C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)
                0043 C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)
5e328a6c4a Davi*0044 C     aim_qfxFile :: file name for ocean q-flux
65007c221b Jean*0045       COMMON /AIM_PARM_C/
4b996cbf32 Jean*0046      &  aim_LandFile, aim_MMsufx,
2a4f7f3ad0 Jean*0047      &  aim_albFile, aim_vegFile,
65007c221b Jean*0048      &  aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
5e328a6c4a Davi*0049      &  aim_swcFile, aim_qfxFile
65007c221b Jean*0050       CHARACTER*(MAX_LEN_FNAM) aim_LandFile
4b996cbf32 Jean*0051       CHARACTER*(MAX_LEN_FNAM) aim_MMsufx
65007c221b Jean*0052       CHARACTER*(MAX_LEN_FNAM) aim_albFile
                0053       CHARACTER*(MAX_LEN_FNAM) aim_vegFile
                0054       CHARACTER*(MAX_LEN_FNAM) aim_sstFile
                0055       CHARACTER*(MAX_LEN_FNAM) aim_lstFile
                0056       CHARACTER*(MAX_LEN_FNAM) aim_oiceFile
                0057       CHARACTER*(MAX_LEN_FNAM) aim_snowFile
                0058       CHARACTER*(MAX_LEN_FNAM) aim_swcFile
5e328a6c4a Davi*0059       CHARACTER*(MAX_LEN_FNAM) aim_qfxFile
65007c221b Jean*0060
                0061 C--   COMMON /AIM_PARM_I/ Integer valued parameters for AIM
2a4f7f3ad0 Jean*0062 C     aim_surfForc_NppCycle :: Number of time period per Cycle (e.g. 12)
65007c221b Jean*0063 C     aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forcing files)
2a4f7f3ad0 Jean*0064 C     aim_select_pCO2  :: select AIM CO2 formulation:
                0065 C                      :: =0 (default): prescribed absorp. in CO2 band (=ABLCO2)
                0066 C                      :: =1: absorption fct of prescribed pCO2 (aim_fixed_pCO2)
                0067 C                      :: =2: same as 0 with passive,  well-mixed pCO2 atm box
                0068 C                      :: =3: same as 1 with evolving, well-mixed pCO2 atm-box
                0069 C     aim_selectOceAlbedo :: select ocean albedo scheme:  =0: constant (default)
                0070 C                         :: =1 : function of Lat, Briegleb et al. 1986
                0071
65007c221b Jean*0072       COMMON /AIM_PARM_I/
d0a9461855 Jean*0073      &  aim_surfForc_NppCycle,
72b4e12f25 Dani*0074      &  aim_MMsufxLength,
2a4f7f3ad0 Jean*0075      &  aim_select_pCO2,
72b4e12f25 Dani*0076      &  aim_selectOceAlbedo
d0a9461855 Jean*0077       INTEGER aim_surfForc_NppCycle
65007c221b Jean*0078       INTEGER aim_MMsufxLength
2a4f7f3ad0 Jean*0079       INTEGER aim_select_pCO2
72b4e12f25 Dani*0080       INTEGER aim_selectOceAlbedo
65007c221b Jean*0081
                0082 C--   COMMON /AIM_PARM_R/ "Real" valued parameters for AIM
d0a9461855 Jean*0083 C     aim_surfForc_TimePeriod :: Length of forcing time period (e.g. 1 month)
                0084 C     aim_surfForc_TransRatio :: transition ratio from one month to the next
299f32bec2 Jean*0085 C     aim_dragStrato :: stratospheric-drag damping time scale (s)
2a4f7f3ad0 Jean*0086 C     aim_abs_pCO2 :: pCO2 dependence coeff. of CO2 band LW absortion
                0087 C     aim_ref_pCO2 :: reference pCO2 concentration (not in namelist)
65007c221b Jean*0088 C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
                0089 C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
2a4f7f3ad0 Jean*0090       COMMON /AIM_PARM_R/
d0a9461855 Jean*0091      &  aim_surfForc_TimePeriod, aim_surfForc_TransRatio,
2a4f7f3ad0 Jean*0092      &  aim_dragStrato, aim_abs_pCO2, aim_ref_pCO2,
b7411f1a84 Jean*0093      &  aim_diagFreq, aim_tendFreq
d0a9461855 Jean*0094       _RL aim_surfForc_TimePeriod, aim_surfForc_TransRatio
299f32bec2 Jean*0095       _RL aim_dragStrato
2a4f7f3ad0 Jean*0096       _RL aim_abs_pCO2, aim_ref_pCO2
65007c221b Jean*0097       _RL aim_diagFreq
                0098       _RL aim_tendFreq
                0099
7f98c35e47 Davi*0100 C--   COMMON /INSOLATION/
                0101 C      OBLIQ  :: Obliquity (in degree) used with ALLOW_INSOLATION
                0102       COMMON /INSOLATION/ OBLIQ
                0103       _RL OBLIQ
                0104
2a4f7f3ad0 Jean*0105 #endif /* ALLOW_AIM */
ad0ca66649 Ed H*0106
                0107 CEH3 ;;; Local Variables: ***
                0108 CEH3 ;;; mode:fortran ***
                0109 CEH3 ;;; End: ***