& QSW_underice
LOGICAL QSW_underice
QSW_underice = .FALSE.
QSW_underice = .TRUE.
IF ( useSEAICE ) QSW_underice = .TRUE.
IF ( useThSIce ) QSW_underice = .TRUE.
& nlev, QSW_underice
IF ( .NOT. QSW_underice ) THEN
CALL WRITE_0D_L( QSW_underice, INDEX_NONE, 'QSW_underice =',