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