415 |
&' /* Model clock timestep ( s ) */') |
&' /* Model clock timestep ( s ) */') |
416 |
CALL WRITE_0D_R8( cAdjFreq, INDEX_NONE,'cAdjFreq =', |
CALL WRITE_0D_R8( cAdjFreq, INDEX_NONE,'cAdjFreq =', |
417 |
&' /* Convective adjustment interval ( s ) */') |
&' /* Convective adjustment interval ( s ) */') |
418 |
CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =', |
CALL WRITE_0D_I( momForcingOutAB, INDEX_NONE, 'momForcingOutAB =', |
419 |
&' /* put T,S Forcing in Adams-Bash. stepping */') |
& ' /* =1: take Momentum Forcing out of Adams-Bash. stepping */') |
420 |
|
CALL WRITE_0D_I( tracForcingOutAB, INDEX_NONE, |
421 |
|
& 'tracForcingOutAB =', |
422 |
|
& ' /* =1: take T,S,pTr Forcing out of Adams-Bash. stepping */') |
423 |
CALL WRITE_0D_L( doAB_onGtGs, INDEX_NONE, 'doAB_onGtGs =', |
CALL WRITE_0D_L( doAB_onGtGs, INDEX_NONE, 'doAB_onGtGs =', |
424 |
& ' /* apply AB on Tendencies (rather than on T,S)*/') |
& ' /* apply AB on Tendencies (rather than on T,S)*/') |
425 |
CALL WRITE_0D_R8( abEps, INDEX_NONE,'abEps =', |
CALL WRITE_0D_R8( abEps, INDEX_NONE,'abEps =', |