& saltAdvection, saltVertDiff4, saltIsActiveTr, saltForcing,
LOGICAL saltAdvection
saltSOM_Advection = saltSOM_Advection .AND. saltAdvection
saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection
IF ( saltAdvection ) THEN
CALL WRITE_0D_L( saltAdvection, INDEX_NONE,
& saltDiffusion, saltAdvection, saltForcing,
calcAdvection = saltAdvection .AND. .NOT.saltMultiDimAdvec
saltAdvection = .TRUE.
saltAdvection = saltStepping .AND. saltAdvection
saltImplVertAdv = saltAdvection .AND. saltImplVertAdv
saltIsActiveTr = momPressureForcing .AND. saltAdvection
IF ( saltAdvection .AND.