13 |
C aim_useFMsurfBC :: select surface B.C. from Franco Molteni |
C aim_useFMsurfBC :: select surface B.C. from Franco Molteni |
14 |
C aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP) |
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) |
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 |
COMMON /AIM_PARM_L/ |
COMMON /AIM_PARM_L/ |
20 |
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp |
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp, |
21 |
|
& aim_energPrecip, aim_splitSIOsFx |
22 |
LOGICAL aim_useFMsurfBC |
LOGICAL aim_useFMsurfBC |
23 |
LOGICAL aim_useMMsurfFc |
LOGICAL aim_useMMsurfFc |
24 |
LOGICAL aim_surfPotTemp |
LOGICAL aim_surfPotTemp |
25 |
|
LOGICAL aim_energPrecip |
26 |
|
LOGICAL aim_splitSIOsFx |
27 |
|
|
28 |
C-- COMMON /AIM_PARM_C/ Character valued parameters for AIM |
C-- COMMON /AIM_PARM_C/ Character valued parameters for AIM |
29 |
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |