Symbol Description Uses
flx2oc net heat flux to ocean [W/m2] (> 0 downward) 28



File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 1010 THSICE_CALC_THICKN
         flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F 1030 THSICE_CALC_THICKN
     &         flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1075 THSICE_CALC_THICKN
           flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F 1080 THSICE_CALC_THICKN
          flx2oc(i,j)=flx2oc(i,j)+extend/dt
./pkg/thsice/thsice_calc_thickn.F 1107 THSICE_CALC_THICKN
     &        icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 1124 THSICE_CALC_THICKN
     I        flx2oc(i,j), frw2oc(i,j), fsalt,
./pkg/thsice/thsice_calc_thickn.F 127 THSICE_CALC_THICKN
      _RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_calc_thickn.F 15 THSICE_CALC_THICKN
     U                  frwAtm, fzMlOc, flx2oc,
./pkg/thsice/thsice_calc_thickn.F 704 THSICE_CALC_THICKN
          flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F 997 THSICE_CALC_THICKN
         flx2oc(i,j) = flx2oc(i,j)
./pkg/thsice/thsice_extend.F 15 THSICE_EXTEND
     O                  flx2oc, frw2oc, fsalt,
./pkg/thsice/thsice_extend.F 213 THSICE_EXTEND
        flx2oc(i,j)= qicAv*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 223 THSICE_EXTEND
     &                  iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j)
./pkg/thsice/thsice_extend.F 229 THSICE_EXTEND
     I            flx2oc(i,j), frw2oc(i,j), fsalt(i,j),
./pkg/thsice/thsice_extend.F 84 THSICE_EXTEND
      _RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_step_fwd.F 203 THSICE_STEP_FWD
        flx2oc(i,j)  = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 239 THSICE_STEP_FWD
     U          icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc,
./pkg/thsice/thsice_step_fwd.F 274 THSICE_STEP_FWD
          pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 282 THSICE_STEP_FWD
          Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 318 THSICE_STEP_FWD
     O          flx2oc, frw2oc, fsalt,
./pkg/thsice/thsice_step_fwd.F 330 THSICE_STEP_FWD
          pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 334 THSICE_STEP_FWD
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 89 THSICE_STEP_FWD
      _RL     flx2oc   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)