_RL SEAICE_tempFrz0, SEAICE_dTempFrz_dS
& SEAICE_tempFrz0, SEAICE_dTempFrz_dS, SEAICE_PDF,
tempFrz = SEAICE_tempFrz0 +
& SEAICE_tempFrz0, SEAICE_dTempFrz_dS, SEAICE_salt0,
SEAICE_tempFrz0 = 0.0901 _d 0
& + SEAICE_tempFrz0 + celsius2K
CALL WRITE_0D_RL( SEAICE_tempFrz0 ,INDEX_NONE,