25 |
#include "AIM_SIZE.h" |
#include "AIM_SIZE.h" |
26 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
27 |
c #include "PARAMS.h" |
c #include "PARAMS.h" |
28 |
|
#include "AIM_PARAMS.h" |
29 |
|
|
30 |
C- Physical constants + functions of sigma and latitude |
C- Physical constants + functions of sigma and latitude |
31 |
c #include "com_physcon.h" |
c #include "com_physcon.h" |
53 |
|
|
54 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
55 |
|
|
56 |
|
C-- AIM interface parameter (common AIM_PARM_?): |
57 |
|
C aim_useFMsurfBC :: select surface B.C. from Franco Molteni |
58 |
|
C aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP) |
59 |
|
C aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc) |
60 |
|
C aim_MMsufx :: sufix for all Monthly Mean surface forcing files |
61 |
|
C aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forc. files) |
62 |
|
C aim_LandFile :: file name for Land fraction (F.M. surfBC) |
63 |
|
C aim_albFile :: file name for Albedo input file (F.M. surfBC) |
64 |
|
C aim_vegFile :: file name for vegetation fraction (F.M. surfBC) |
65 |
|
C aim_sstFile :: file name for Sea.Surf.Temp (F.M. surfBC) |
66 |
|
C aim_lstFile :: file name for Land.Surf.Temp (F.M. surfBC) |
67 |
|
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
68 |
|
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
69 |
|
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
70 |
|
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
71 |
|
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
72 |
|
NAMELIST /AIM_PARAMS/ |
73 |
|
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp, |
74 |
|
& aim_MMsufx, aim_MMsufxLength, |
75 |
|
& aim_LandFile, aim_albFile, aim_vegFile, |
76 |
|
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
77 |
|
& aim_swcFile, |
78 |
|
& aim_diagFreq, aim_tendFreq |
79 |
|
|
80 |
C-- Physical constants (common PHYCON) : |
C-- Physical constants (common PHYCON) : |
81 |
C P0 = reference pressure |
C P0 = reference pressure |
82 |
C GG = gravity accel. |
C GG = gravity accel. |
190 |
|
|
191 |
C-- Read parameters from open data file: |
C-- Read parameters from open data file: |
192 |
|
|
193 |
|
C- Parameters for AIM interface code: |
194 |
|
READ(UNIT=iUnit,NML=AIM_PARAMS) |
195 |
|
|
196 |
C- Constants for boundary forcing |
C- Constants for boundary forcing |
197 |
READ(UNIT=iUnit,NML=AIM_PAR_FOR) |
READ(UNIT=iUnit,NML=AIM_PAR_FOR) |
198 |
|
|
230 |
WRITE(msgBuf,'(A)') '// ===================================' |
WRITE(msgBuf,'(A)') '// ===================================' |
231 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
232 |
|
|
233 |
|
C- namelist AIM_PARAMS: |
234 |
|
CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE, |
235 |
|
& 'aim_useFMsurfBC =', |
236 |
|
&' /* F.Molteni surf. BC scheme on/off flag */') |
237 |
|
CALL WRITE_0D_L( aim_useMMsurfFc, INDEX_NONE, |
238 |
|
& 'aim_useMMsurfFc =', |
239 |
|
&' /* Monthly Mean surf. Forcing on/off flag */') |
240 |
|
CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE, |
241 |
|
& 'aim_surfPotTemp =', |
242 |
|
&' /* Surf Temp file in Pot.Temp on/off flag */') |
243 |
|
CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =', |
244 |
|
& ' /* Frequency^-1 for diagnostic output (s) */') |
245 |
|
CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =', |
246 |
|
& ' /* Frequency^-1 for tendencies output (s) */') |
247 |
|
|
248 |
C- namelist AIM_PAR_FOR: |
C- namelist AIM_PAR_FOR: |
249 |
CALL WRITE_0D_R8( SOLC, INDEX_NONE,'AIM_FOR: SOLC =', |
CALL WRITE_0D_R8( SOLC, INDEX_NONE,'AIM_FOR: SOLC =', |
250 |
& ' /* Solar constant (area averaged) in W/m2 */') |
& ' /* Solar constant (area averaged) in W/m2 */') |