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