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) |