_RL SEAICE_initialHEFF
& SEAICE_initialHEFF,
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj)
SEAICE_initialHEFF = ZERO
CALL WRITE_0D_RL( SEAICE_initialHEFF,INDEX_NONE,