| 1 |
jmc |
1.5 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_PARAMS.h,v 1.4 2004/03/11 14:33:19 jmc Exp $ |
| 2 |
jmc |
1.1 |
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 |
jmc |
1.4 |
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 |
jmc |
1.5 |
C aim_clrSkyDiag :: compute clear-sky radiation for diagnostics |
| 20 |
jmc |
1.1 |
COMMON /AIM_PARM_L/ |
| 21 |
jmc |
1.4 |
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp, |
| 22 |
jmc |
1.5 |
& aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag |
| 23 |
jmc |
1.1 |
LOGICAL aim_useFMsurfBC |
| 24 |
|
|
LOGICAL aim_useMMsurfFc |
| 25 |
|
|
LOGICAL aim_surfPotTemp |
| 26 |
jmc |
1.4 |
LOGICAL aim_energPrecip |
| 27 |
|
|
LOGICAL aim_splitSIOsFx |
| 28 |
jmc |
1.5 |
LOGICAL aim_clrSkyDiag |
| 29 |
jmc |
1.1 |
|
| 30 |
|
|
C-- COMMON /AIM_PARM_C/ Character valued parameters for AIM |
| 31 |
|
|
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |
| 32 |
|
|
C aim_LandFile :: file name for Land fraction (F.M. surfBC) |
| 33 |
|
|
C aim_albFile :: file name for Albedo input file (F.M. surfBC) |
| 34 |
|
|
C aim_vegFile :: file name for vegetation fraction (F.M. surfBC) |
| 35 |
|
|
C aim_sstFile :: file name for Sea.Surf.Temp (F.M. surfBC) |
| 36 |
|
|
C aim_lstFile :: file name for Land.Surf.Temp (F.M. surfBC) |
| 37 |
|
|
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
| 38 |
|
|
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
| 39 |
|
|
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
| 40 |
|
|
COMMON /AIM_PARM_C/ |
| 41 |
|
|
& aim_MMsufx, |
| 42 |
|
|
& aim_LandFile, aim_albFile, aim_vegFile, |
| 43 |
|
|
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
| 44 |
|
|
& aim_swcFile |
| 45 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_MMsufx |
| 46 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_LandFile |
| 47 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_albFile |
| 48 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_vegFile |
| 49 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_sstFile |
| 50 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_lstFile |
| 51 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_oiceFile |
| 52 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_snowFile |
| 53 |
|
|
CHARACTER*(MAX_LEN_FNAM) aim_swcFile |
| 54 |
|
|
|
| 55 |
|
|
C-- COMMON /AIM_PARM_I/ Integer valued parameters for AIM |
| 56 |
|
|
C aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forcing files) |
| 57 |
|
|
COMMON /AIM_PARM_I/ |
| 58 |
|
|
& aim_MMsufxLength |
| 59 |
|
|
INTEGER aim_MMsufxLength |
| 60 |
|
|
|
| 61 |
|
|
C-- COMMON /AIM_PARM_R/ "Real" valued parameters for AIM |
| 62 |
jmc |
1.3 |
C aim_dragStrato :: stratospheric-drag damping time scale (s) |
| 63 |
jmc |
1.2 |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
| 64 |
jmc |
1.1 |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
| 65 |
|
|
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
| 66 |
|
|
COMMON /AIM_PARM_R/ |
| 67 |
jmc |
1.3 |
& aim_dragStrato, |
| 68 |
jmc |
1.2 |
& aim_taveFreq, aim_diagFreq, aim_tendFreq |
| 69 |
jmc |
1.3 |
_RL aim_dragStrato |
| 70 |
jmc |
1.2 |
_RL aim_taveFreq |
| 71 |
jmc |
1.1 |
_RL aim_diagFreq |
| 72 |
|
|
_RL aim_tendFreq |
| 73 |
|
|
|
| 74 |
|
|
#endif /* ALLOW_AIM */ |
Parent Directory
| 
Revision Log
| 
Revision Graph