& balanceEmPmR, balanceQnet, balancePrintMean,
LOGICAL balanceEmPmR
IF (balanceEmPmR .OR. balanceQnet) THEN
IF ( balanceEmPmR .AND. (.NOT.useSeaice .OR. useThSIce) ) THEN
IF ( balanceEmPmR ) THEN
IF ( balanceEmPmR.AND.(temp_EvPrRn.EQ.UNSET_RL) ) THEN
IF ( balanceEmPmR )
ELSEIF ( balanceEmPmR ) THEN
IF ( balanceEmPmR ) tmpscal2=tmpscal2-tmpscal1
balanceEmPmR = .FALSE.