PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj)
_RL ECCEN, ECM2, PSTAR, AAA
PSTAR=SEAICE_strength
_RL PSTAR
PSTAR = SEAICE_strength
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)