| File |
Line number |
Procedure |
Code |
|
./pkg/monitor/monitor.F |
134 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, Qnet, '_qnet', |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
105 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
202 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_RS(Qnet , myThid ) |
|
./model/src/diags_oceanic_surf_flux.F |
85 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qnet,tmpFac,1, |
|
./model/src/do_oceanic_phys.F |
329 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, drF, |
|
./pkg/seaice/seaice_budget_ocean.F |
102 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
111 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
243 |
SEAICE_MODEL |
_EXCH_XY_RS(Qnet , myThid ) |
|
./pkg/seaice/seaice_model.F |
291 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qnet ,'SIqnet ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
103 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid) |
|
./pkg/seaice/seaice_output.F |
115 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid) |
|
./model/src/external_fields_load.F |
258 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
311 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1),EmPmR(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
221 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_ave.F |
101 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE(ice_flx2oc_Ave, Qnet, |
|
./pkg/thsice/thsice_ave.F |
146 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
279 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./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 |
292 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
296 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./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 |
343 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
386 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(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 |
168 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
183 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./model/src/ini_forcing.F |
49 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
84 |
NO PROCEDURE |
COMMON /FFIELDS_Qnet/ Qnet |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
98 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
204 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
124 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
126 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
171 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
186 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
48 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
66 |
ATM_STORE_HEATFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_v23/aim_aim2sioce.F |
104 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
117 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
194 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
221 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
233 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj) |
|
./pkg/atm2d/put_ocnvars.F |
75 |
PUT_OCNVARS |
Qnet(i,j,1,1)= pass_qnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
86 |
PUT_OCNVARS |
_EXCH_XY_RS(Qnet, myThid ) |
|
./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 |
197 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
195 |
CHEAPAML |
Qnet(i,j,bi,bj)=0.d0 |
|
./pkg/cheapaml/cheapaml.F |
268 |
CHEAPAML |
_EXCH_XY_RS(Qnet,mythid) |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml.F |
433 |
CHEAPAML |
_EXCH_XY_RS(Qnet,mythid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
249 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnet, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
248 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
268 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
278 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(Qnet , myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
74 |
EBM_FORCING_SURF |
& -Qnet(i,j,bi,bj)*recip_Cp*mass2rUnit |
|
./model/inc/FFIELDS.h |
101 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
87 |
NO PROCEDURE |
COMMON /FFIELDS_Qnet/ Qnet |