67 |
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
C aim_oiceFile :: file name for Sea Ice fraction (F.M. surfBC) |
68 |
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
C aim_snowFile :: file name for Snow depth (F.M. surfBC) |
69 |
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
C aim_swcFile :: file name for Soil Water content (F.M. surfBC) |
70 |
|
C aim_dragStrato :: stratospheric-drag damping time scale (s) |
71 |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
72 |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
73 |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
77 |
& aim_LandFile, aim_albFile, aim_vegFile, |
& aim_LandFile, aim_albFile, aim_vegFile, |
78 |
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
& aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile, |
79 |
& aim_swcFile, |
& aim_swcFile, |
80 |
|
& aim_dragStrato, |
81 |
& aim_taveFreq, aim_diagFreq, aim_tendFreq |
& aim_taveFreq, aim_diagFreq, aim_tendFreq |
82 |
|
|
83 |
C-- Physical constants (common PHYCON) : |
C-- Physical constants (common PHYCON) : |
264 |
CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE, |
CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE, |
265 |
& 'aim_surfPotTemp =', |
& 'aim_surfPotTemp =', |
266 |
&' /* Surf Temp file in Pot.Temp on/off flag */') |
&' /* Surf Temp file in Pot.Temp on/off flag */') |
267 |
|
CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=', |
268 |
|
& ' /* stratospheric-drag damping time scale (s) */') |
269 |
CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =', |
CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =', |
270 |
& ' /* Frequency^-1 for time-Aver. output (s) */') |
& ' /* Frequency^-1 for time-Aver. output (s) */') |
271 |
CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =', |
CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =', |