Symbol Description Uses
pass_qnet 13



File Line number Procedure Code
./pkg/thsice/thsice_step_fwd.F 284 THSICE_STEP_FWD
          pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 350 THSICE_STEP_FWD
          pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j)
./pkg/atm2d/ATM2D_VARS.h 196 NO PROCEDURE
     &                        pass_qnet, pass_fu, pass_fv, pass_wspeed,
./pkg/atm2d/ATM2D_VARS.h 202 NO PROCEDURE
       _RL pass_qnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy)   ! HF-> ocean (W/m2) (+=out of ocean), inc seaice part
./pkg/atm2d/atm2d_read_pickup.F 44 ATM2D_READ_PICKUP
        CALL READ_REC_3D_RL(fn,prec,1,pass_qnet,     2, nIter0, myThid)
./pkg/atm2d/atm2d_write_pickup.F 154 ATM2D_WRITE_PICKUP_NOW
      CALL WRITE_REC_3D_RL( fn,prec,1,pass_qnet,     2,myIter,myThid )
./pkg/atm2d/init_atm2d.F 342 INIT_ATM2D
          pass_qnet(i,j)= 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F 47 NORM_OCN_FLUXES
            pass_qnet(i,j)= sum_qnet(i,j)/nper
./pkg/atm2d/put_ocnvars.F 54 PUT_OCNVARS
          HeatFlux_ocn(i,j)= pass_qnet(i,j)
./pkg/atm2d/put_ocnvars.F 75 PUT_OCNVARS
          Qnet(i,j,1,1)= pass_qnet(i,j)
./pkg/atm2d/sum_yr_end_diags.F 63 SUM_YR_END_DIAGS
            HF2ocn_tave = HF2ocn_tave + rA(i,j,1,1)*pass_qnet(i,j)