647 |
CALL WRITE_0D_L( startFromPickupAB2, INDEX_NONE, |
CALL WRITE_0D_L( startFromPickupAB2, INDEX_NONE, |
648 |
& 'startFromPickupAB2=',' /* start from AB-2 pickup */') |
& 'startFromPickupAB2=',' /* start from AB-2 pickup */') |
649 |
#endif |
#endif |
650 |
|
CALL WRITE_0D_L( applyExchUV_early, INDEX_NONE, |
651 |
|
& 'applyExchUV_early =', |
652 |
|
& ' /* Apply EXCH to U,V earlier in time-step */') |
653 |
IF (useCDscheme) THEN |
IF (useCDscheme) THEN |
654 |
CALL WRITE_0D_RL( tauCD, INDEX_NONE,'tauCD =', |
CALL WRITE_0D_RL( tauCD, INDEX_NONE,'tauCD =', |
655 |
&' /* CD coupling time-scale ( s ) */') |
&' /* CD coupling time-scale ( s ) */') |