_RL facOpenGrow, facOpenMelt
& facOpenGrow, facOpenMelt,
tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2,
facOpenGrow = 0. _d 0
IF (SEAICE_doOpenWaterGrowth) facOpenGrow = 1. _d 0