_RL SEAICE_area_reg, SEAICE_hice_reg
& SEAICE_area_reg, SEAICE_hice_reg,
hice_reg_sq = SEAICE_hice_reg * SEAICE_hice_reg
hrMax(i,j,k) = MAX(hrMax(i,j,k),hrMin(i,j,k)+SEAICE_hice_reg)
SEAICE_hice_reg = 0.05 _d 0
CALL WRITE_0D_RL( SEAICE_hice_reg ,INDEX_NONE,