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