| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_PARAMS.h,v 1.6 2004/11/14 19:54:01 jmc Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
#ifdef ALLOW_AIM |
| 5 |
C *==========================================================* |
| 6 |
C | AIM_PARAMS.h |
| 7 |
C | o Header file for AIM package parameters |
| 8 |
C | e.g.: output/input file & parameters; |
| 9 |
C | forcing & interface parameters; |
| 10 |
C *==========================================================* |
| 11 |
|
| 12 |
C-- COMMON /AIM_PARM_L/ Logical valued parameters for AIM |
| 13 |
C aim_useFMsurfBC :: select surface B.C. from Franco Molteni |
| 14 |
C aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP) |
| 15 |
C aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc) |
| 16 |
C aim_energPrecip :: account for energy of precipitation (snow & rain temp) |
| 17 |
C aim_splitSIOsFx :: compute separately Sea-Ice & Ocean surf. Flux |
| 18 |
C (also land SW & LW) ; default=F as in original version |
| 19 |
C aim_clrSkyDiag :: compute clear-sky radiation for diagnostics |
| 20 |
C aim_tave_mdsio :: write TimeAverage output using MDSIO |
| 21 |
C aim_tave_mnc :: write TimeAverage output using MNC |
| 22 |
COMMON /AIM_PARM_L/ |
| 23 |
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp, |
| 24 |
& aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag, |
| 25 |
& aim_tave_mdsio, aim_tave_mnc |
| 26 |
LOGICAL aim_useFMsurfBC |
| 27 |
LOGICAL aim_useMMsurfFc |
| 28 |
LOGICAL aim_surfPotTemp |
| 29 |
LOGICAL aim_energPrecip |
| 30 |
LOGICAL aim_splitSIOsFx |
| 31 |
LOGICAL aim_clrSkyDiag |
| 32 |
LOGICAL aim_tave_mdsio, aim_tave_mnc |
| 33 |
|
| 34 |
C-- COMMON /AIM_PARM_C/ Character valued parameters for AIM |
| 35 |
C aim_LandFile :: file name for Land fraction |
| 36 |
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |
| 37 |
C aim_albFile :: file name for Albedo input file (F.M. surfBC) |
| 38 |
C aim_vegFile :: file name for vegetation fraction (F.M. surfBC) |
| 39 |
C aim_sstFile :: file name for Sea.Surf.Temp (F.M. surfBC) |
| 40 |
C aim_lstFile :: file name for Land.Surf.Temp (F.M. surfBC) |
| 41 |
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
| 42 |
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
| 43 |
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
| 44 |
COMMON /AIM_PARM_C/ |
| 45 |
& aim_LandFile, aim_MMsufx, |
| 46 |
& aim_albFile, aim_vegFile, |
| 47 |
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
| 48 |
& aim_swcFile |
| 49 |
CHARACTER*(MAX_LEN_FNAM) aim_LandFile |
| 50 |
CHARACTER*(MAX_LEN_FNAM) aim_MMsufx |
| 51 |
CHARACTER*(MAX_LEN_FNAM) aim_albFile |
| 52 |
CHARACTER*(MAX_LEN_FNAM) aim_vegFile |
| 53 |
CHARACTER*(MAX_LEN_FNAM) aim_sstFile |
| 54 |
CHARACTER*(MAX_LEN_FNAM) aim_lstFile |
| 55 |
CHARACTER*(MAX_LEN_FNAM) aim_oiceFile |
| 56 |
CHARACTER*(MAX_LEN_FNAM) aim_snowFile |
| 57 |
CHARACTER*(MAX_LEN_FNAM) aim_swcFile |
| 58 |
|
| 59 |
C-- COMMON /AIM_PARM_I/ Integer valued parameters for AIM |
| 60 |
C aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forcing files) |
| 61 |
COMMON /AIM_PARM_I/ |
| 62 |
& aim_MMsufxLength |
| 63 |
INTEGER aim_MMsufxLength |
| 64 |
|
| 65 |
C-- COMMON /AIM_PARM_R/ "Real" valued parameters for AIM |
| 66 |
C aim_dragStrato :: stratospheric-drag damping time scale (s) |
| 67 |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
| 68 |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
| 69 |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
| 70 |
COMMON /AIM_PARM_R/ |
| 71 |
& aim_dragStrato, |
| 72 |
& aim_taveFreq, aim_diagFreq, aim_tendFreq |
| 73 |
_RL aim_dragStrato |
| 74 |
_RL aim_taveFreq |
| 75 |
_RL aim_diagFreq |
| 76 |
_RL aim_tendFreq |
| 77 |
|
| 78 |
#endif /* ALLOW_AIM */ |
| 79 |
|
| 80 |
CEH3 ;;; Local Variables: *** |
| 81 |
CEH3 ;;; mode:fortran *** |
| 82 |
CEH3 ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph