& balanceThetaClimRelax, balanceSaltClimRelax,
LOGICAL balanceThetaClimRelax
IF (balanceThetaClimRelax .OR. balanceSaltClimRelax) THEN
CALL WRITE_0D_L( balanceThetaClimRelax, INDEX_NONE,
IF ( balanceThetaClimRelax ) THEN
& balanceThetaClimRelax, balanceSaltClimRelax
balanceThetaClimRelax = .FALSE.