81 |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
C aim_taveFreq :: Frequency^-1 for time-average output (s) |
82 |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
C aim_diagFreq :: Frequency^-1 for diagnostic output (s) |
83 |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
C aim_tendFreq :: Frequency^-1 for tendencies output (s) |
84 |
|
C aim_selectOceAlbedo :: Ocean albedo(latitude) scheme (integer) |
85 |
|
C 0 = constant (default) |
86 |
|
C 1 = Briegleb et al. 1986 |
87 |
NAMELIST /AIM_PARAMS/ |
NAMELIST /AIM_PARAMS/ |
88 |
& aim_useFMsurfBC, aim_useMMsurfFc, |
& aim_useFMsurfBC, aim_useMMsurfFc, |
89 |
& aim_surfForc_TimePeriod, aim_surfForc_NppCycle, |
& aim_surfForc_TimePeriod, aim_surfForc_NppCycle, |
96 |
& aim_dragStrato, |
& aim_dragStrato, |
97 |
& aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq, |
& aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq, |
98 |
& aim_timeave_mnc, aim_snapshot_mnc, |
& aim_timeave_mnc, aim_snapshot_mnc, |
99 |
& aim_pickup_write_mnc, aim_pickup_read_mnc |
& aim_pickup_write_mnc, aim_pickup_read_mnc, |
100 |
|
& aim_selectOceAlbedo |
101 |
|
|
102 |
C-- Physical constants (common PHYCON) : |
C-- Physical constants (common PHYCON) : |
103 |
C P0 = reference pressure [Pa=N/m2] |
C P0 = reference pressure [Pa=N/m2] |
233 |
aim_surfForc_TimePeriod = 30.*86400. |
aim_surfForc_TimePeriod = 30.*86400. |
234 |
C- Number of time period per Cycle: |
C- Number of time period per Cycle: |
235 |
aim_surfForc_NppCycle = 12 |
aim_surfForc_NppCycle = 12 |
236 |
|
aim_selectOceAlbedo = 0 |
237 |
C- define how fast the (linear) transition is from one month to the next |
C- define how fast the (linear) transition is from one month to the next |
238 |
C = 1 -> linear between 2 midle month |
C = 1 -> linear between 2 midle month |
239 |
C > TimePeriod/deltaT -> jump from one month to the next one |
C > TimePeriod/deltaT -> jump from one month to the next one |
391 |
& ' /* Frequency^-1 for diagnostic output (s) */') |
& ' /* Frequency^-1 for diagnostic output (s) */') |
392 |
CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =', |
CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =', |
393 |
& ' /* Frequency^-1 for tendencies output (s) */') |
& ' /* Frequency^-1 for tendencies output (s) */') |
394 |
|
CALL WRITE_0D_I( aim_selectOceAlbedo, INDEX_NONE, |
395 |
|
& 'aim_selectOceAlbedo =', |
396 |
|
& ' /* Ocean albedo(latitude) flag */') |
397 |
|
|
398 |
C- namelist AIM_PAR_FOR: |
C- namelist AIM_PAR_FOR: |
399 |
CALL WRITE_0D_R8( SOLC, INDEX_NONE,'AIM_FOR: SOLC =', |
CALL WRITE_0D_R8( SOLC, INDEX_NONE,'AIM_FOR: SOLC =', |