1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_PARAMS.h,v 1.7 2005/06/23 20:02:50 edhill 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 |
COMMON /AIM_PARM_L/ |
21 |
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp, |
22 |
& aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag, |
23 |
& aim_timeave_mnc, aim_snapshot_mnc, |
24 |
& aim_pickup_write_mnc, aim_pickup_read_mnc, |
25 |
& aim_timeave_mdsio, aim_snapshot_mdsio, |
26 |
& aim_pickup_write_mdsio, aim_pickup_read_mdsio |
27 |
LOGICAL aim_useFMsurfBC |
28 |
LOGICAL aim_useMMsurfFc |
29 |
LOGICAL aim_surfPotTemp |
30 |
LOGICAL aim_energPrecip |
31 |
LOGICAL aim_splitSIOsFx |
32 |
LOGICAL aim_clrSkyDiag |
33 |
LOGICAL |
34 |
& aim_timeave_mnc, aim_snapshot_mnc, |
35 |
& aim_pickup_write_mnc, aim_pickup_read_mnc, |
36 |
& aim_timeave_mdsio, aim_snapshot_mdsio, |
37 |
& aim_pickup_write_mdsio, aim_pickup_read_mdsio |
38 |
|
39 |
C-- COMMON /AIM_PARM_C/ Character valued parameters for AIM |
40 |
C aim_LandFile :: file name for Land fraction |
41 |
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |
42 |
C aim_albFile :: file name for Albedo input file (F.M. surfBC) |
43 |
C aim_vegFile :: file name for vegetation fraction (F.M. surfBC) |
44 |
C aim_sstFile :: file name for Sea.Surf.Temp (F.M. surfBC) |
45 |
C aim_lstFile :: file name for Land.Surf.Temp (F.M. surfBC) |
46 |
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
47 |
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
48 |
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
49 |
COMMON /AIM_PARM_C/ |
50 |
& aim_LandFile, aim_MMsufx, |
51 |
& aim_albFile, aim_vegFile, |
52 |
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
53 |
& aim_swcFile |
54 |
CHARACTER*(MAX_LEN_FNAM) aim_LandFile |
55 |
CHARACTER*(MAX_LEN_FNAM) aim_MMsufx |
56 |
CHARACTER*(MAX_LEN_FNAM) aim_albFile |
57 |
CHARACTER*(MAX_LEN_FNAM) aim_vegFile |
58 |
CHARACTER*(MAX_LEN_FNAM) aim_sstFile |
59 |
CHARACTER*(MAX_LEN_FNAM) aim_lstFile |
60 |
CHARACTER*(MAX_LEN_FNAM) aim_oiceFile |
61 |
CHARACTER*(MAX_LEN_FNAM) aim_snowFile |
62 |
CHARACTER*(MAX_LEN_FNAM) aim_swcFile |
63 |
|
64 |
C-- COMMON /AIM_PARM_I/ Integer valued parameters for AIM |
65 |
C aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forcing files) |
66 |
COMMON /AIM_PARM_I/ |
67 |
& aim_MMsufxLength |
68 |
INTEGER aim_MMsufxLength |
69 |
|
70 |
C-- COMMON /AIM_PARM_R/ "Real" valued parameters for AIM |
71 |
C aim_dragStrato :: stratospheric-drag damping time scale (s) |
72 |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
73 |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
74 |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
75 |
COMMON /AIM_PARM_R/ |
76 |
& aim_dragStrato, |
77 |
& aim_taveFreq, aim_diagFreq, aim_tendFreq |
78 |
_RL aim_dragStrato |
79 |
_RL aim_taveFreq |
80 |
_RL aim_diagFreq |
81 |
_RL aim_tendFreq |
82 |
|
83 |
#endif /* ALLOW_AIM */ |
84 |
|
85 |
CEH3 ;;; Local Variables: *** |
86 |
CEH3 ;;; mode:fortran *** |
87 |
CEH3 ;;; End: *** |