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