calcAdvection = saltAdvection .AND. .NOT.saltMultiDimAdvec
CALL WRITE_0D_L( saltAdvection, INDEX_NONE,
& saltDiffusion, saltAdvection, saltForcing,
saltAdvection = saltStepping .AND. saltAdvection
saltImplVertAdv = saltAdvection .AND. saltImplVertAdv
& saltAdvection, saltForcing,
LOGICAL saltAdvection
saltMultiDimAdvec = multiDimAdvection .AND. saltAdvection
saltAdvection = .TRUE.