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 */ |