Symbol Description Uses
frzSeaWat seawater freezing rate (expressed as mass flux) [kg/m^2/s] 13


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 131 THSICE_CALC_THICKN 
      _RL frzSeaWat(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_calc_thickn.F 16 THSICE_CALC_THICKN 
     O                  frw2oc, fsalt, frzSeaWat,
./pkg/thsice/thsice_calc_thickn.F 581 THSICE_CALC_THICKN 
         frzSeaWat(i,j) = rhoi*dhi/dt
./pkg/thsice/thsice_salt_plume.F 14 THSICE_SALT_PLUME 
     I                  frzSeaWat,
./pkg/thsice/thsice_salt_plume.F 51 THSICE_SALT_PLUME 
      _RL     frzSeaWat(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_salt_plume.F 84 THSICE_SALT_PLUME 
           locVar(i,j) = frzSeaWat(i,j)*( sOce(i,j) - saltIce )
./pkg/thsice/thsice_step_fwd.F 137 THSICE_STEP_FWD 
          frzSeaWat(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 250 THSICE_STEP_FWD 
     O          frw2oc, fsalt, frzSeaWat,
./pkg/thsice/thsice_step_fwd.F 300 THSICE_STEP_FWD 
          frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 358 THSICE_STEP_FWD 
          frzSeaWat(i,j) = frzSeaWat(i,j) + MAX(-frw2oc(i,j), 0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 392 THSICE_STEP_FWD 
     I          frzSeaWat,
./pkg/thsice/thsice_step_fwd.F 97 THSICE_STEP_FWD 
      _RL     frzSeaWat(1-OLx:sNx+OLx,1-OLy:sNy+OLy)