INTEGER SEAICE_areaGainFormula
& SEAICE_areaGainFormula,
& .AND.( (SEAICE_areaGainFormula.NE.2).OR.
IF ((SEAICE_areaGainFormula.LT.1).OR.
& (SEAICE_areaGainFormula.GT.2)) THEN
IF (SEAICE_areaGainFormula.EQ.1) THEN
& SEAICE_areaGainFormula, SEAICE_areaLossFormula,
SEAICE_areaGainFormula=1
buffI(1) = SEAICE_areaGainFormula