| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
249 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0*( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
269 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90./ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
279 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
_EXCH_XY_R4(Qnet , myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
76 |
EBM_FORCING_SURF |
& -Qnet(i,j,bi,bj)*recip_Cp*horiVertRatio*recip_rhoConst |
|
./model/inc/FFIELDS.h |
101 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
85 |
NO PROCEDURE |
& , Qnet |
|
./pkg/aim_v23/aim_aim2sioce.F |
109 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
122 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
198 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
225 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
237 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
44 |
BULKF_AVE |
& +Qnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
58 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) Qnet(i,j,bi,bj) = Qnetch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
184 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = -hfl |
|
./pkg/bulk_force/bulkf_forcing.F |
196 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code/FFIELDS.h |
86 |
NO PROCEDURE |
& , Qnet |
|
./verification/OpenAD/code/FFIELDS.h |
99 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/natl_box/code/external_fields_load.F |
216 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
278 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
359 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1),EmPmR(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
178 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
123 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
|
./model/src/ini_forcing.F |
125 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
|
./model/src/ini_forcing.F |
156 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
174 |
INI_FORCING |
_EXCH_XY_R4(Qnet , myThid ) |
|
./model/src/ini_forcing.F |
49 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
219 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, Qnet, maskH, maskH, rA, drF, |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
66 |
ATM_STORE_HEATFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
103 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
171 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_R4(Qnet , myThid ) |
|
./pkg/ctrl/ctrl_map_forcing.F |
198 |
CTRL_MAP_FORCING |
_EXCH_XY_R4(Qnet, myThid ) |
|
./pkg/thsice/thsice_ave.F |
100 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE(ice_flx2oc_Ave, Qnet, |
|
./pkg/thsice/thsice_ave.F |
144 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
71 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
175 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
224 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
253 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
261 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
118 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( Qnet , 'Current Qnet ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
74 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
87 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qnet.',suff,Qnet,myIter,myThid) |
|
./pkg/seaice/seaice_model.F |
148 |
SEAICE_MODEL |
_EXCH_XY_R4(Qnet , myThid ) |