LOGICAL AdamsBashforth_S
& AdamsBashforth_T, AdamsBashforth_S
AdamsBashforth_S = .FALSE.
AdamsBashforth_S = AdamsBashforthGs
CALL WRITE_0D_L( AdamsBashforth_S, INDEX_NONE,
ELSEIF ( AdamsBashforth_S ) THEN
& AdamsBashforth_S = .FALSE. )
IF ( AdamsBashforth_S ) THEN
I calcAdvection, saltImplVertAdv, AdamsBashforth_S,
IF ( AdamsBashforthGs.OR.AdamsBashforth_S ) THEN
IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm1 '
IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm2 '