LOGICAL saltSOM_Advection
& tempSOM_Advection, saltSOM_Advection,
& tempSOM_Advection .OR. saltSOM_Advection
saltSOM_Advection = saltAdvScheme.GE.ENUM_SOM_PRATHER
saltSOM_Advection = saltSOM_Advection .AND. saltAdvection
CALL WRITE_0D_L( saltSOM_Advection, INDEX_NONE,
IF ( tempSOM_Advection .OR. saltSOM_Advection ) THEN
IF ( saltSOM_Advection ) THEN
IF ( tempSOM_Advection .OR. saltSOM_Advection )