| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
105 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
91 |
NO PROCEDURE |
COMMON /FFIELDS_Qnet/ Qnet |
|
./pkg/exf/exf_mapfields.F |
111 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
117 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
157 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
176 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
188 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
198 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
202 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
213 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
362 |
EXF_MAPFIELDS |
_EXCH_XY_RS( Qnet, myThid ) |
|
./pkg/monitor/monitor.F |
139 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, Qnet, '_qnet', |
|
./model/src/diags_oceanic_surf_flux.F |
73 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qnet,tmpFac,1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
101 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
187 |
OCN_APPLY_IMPORT |
IF ( useImportHFlx ) _EXCH_XY_RS( Qnet , myThid ) |
|
./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 |
333 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1), EmPmR(1,sNy,1,1) |
|
./model/src/external_forcing_surf.F |
105 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qnet, fixVal, 1, myThid ) |
|
./model/src/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
242 |
SEAICE_MODEL |
_EXCH_XY_RS(Qnet , myThid ) |
|
./pkg/seaice/seaice_model.F |
283 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qnet ,'SIqnet ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
119 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid) |
|
./pkg/seaice/seaice_output.F |
137 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid) |
|
./model/src/ini_ffields.F |
50 |
INI_FFIELDS |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
122 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
154 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./model/src/ini_forcing.F |
77 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
|
./model/src/ini_forcing.F |
79 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
|
./pkg/thsice/thsice_ave.F |
136 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
99 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_flx2oc_Ave, Qnet, |
|
./pkg/thsice/thsice_do_advect.F |
110 |
THSICE_DO_ADVECT |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
82 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
224 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
289 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
292 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
306 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
310 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
364 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
432 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
105 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
91 |
NO PROCEDURE |
COMMON /FFIELDS_Qnet/ Qnet |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qnet, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
127 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
129 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
174 |
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 |
189 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
105 |
NO PROCEDURE |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
91 |
NO PROCEDURE |
COMMON /FFIELDS_Qnet/ Qnet |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qnet, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
127 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
129 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
174 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
189 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
118 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
222 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
234 |
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/atm_compon_interf/atm_store_surfflux.F |
61 |
ATM_STORE_SURFFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_phys/atm_phys_driver.F |
432 |
ATM_PHYS_DRIVER |
Qnet(1:sNx,1:sNy,bi,bj) = flux_t(:,:) + flux_r(:,:) |
|
./pkg/autodiff/addummy_in_stepping.F |
479 |
ADDUMMY_IN_STEPPING |
foo2D = Qnetd |
|
./pkg/autodiff/addummy_in_stepping.F |
561 |
ADDUMMY_IN_STEPPING |
foo2D = Qnetd |
|
./pkg/autodiff/addummy_in_stepping.F |
665 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( Qnetd, dumRL, var2Du, 1, 11, 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/bulk_force/bulkf_forcing.F |
235 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
239 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
255 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
259 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
121 |
CHEAPAML |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
457 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
573 |
CHEAPAML |
_EXCH_XY_RS(Qnet,myThid) |
|
./pkg/cheapaml/cheapaml.F |
726 |
CHEAPAML |
CALL DIAGNOSTICS_FILL_RS(Qnet,'CH_QNET ',0,1,0,1,1,myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
281 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnet, myThid ) |
|
./pkg/ctrl/ctrl_map_forcing.F |
341 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_qnet') Qnet |
|
./pkg/ctrl/ctrl_map_forcing.F |
342 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qnet(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
365 |
CTRL_MAP_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
270 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
300 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
369 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(Qnet , myThid ) |