| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
106 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
92 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./pkg/exf/exf_mapfields.F |
302 |
EXF_MAPFIELDS |
Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
368 |
EXF_MAPFIELDS |
_EXCH_XY_RS( Qsw, myThid ) |
|
./model/src/apply_forcing.F |
690 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
110 |
KPP_FORCING_SURF |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_forcing_surf.F |
19 |
KPP_FORCING_SURF |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
217 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_transport_t.F |
84 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
99 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/layers/layers_thermodynamics.F |
153 |
LAYERS_CALC_RHS |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
81 |
LAYERS_CALC_RHS |
& +Qsw(i,j,bi,bj) |
|
./pkg/longstep/longstep_average.F |
99 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_QswCount, LS_Qsw, Qsw, 1, myThid) |
|
./pkg/monitor/monitor.F |
141 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, Qsw , '_qsw', |
|
./model/src/diags_oceanic_surf_flux.F |
123 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
78 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qsw,tmpFac,1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
107 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
189 |
OCN_APPLY_IMPORT |
IF ( useImportHFlx ) _EXCH_XY_RS( Qsw , myThid ) |
|
./model/src/external_fields_load.F |
303 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing_surf.F |
107 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qsw, fixVal, 1, myThid ) |
|
./model/src/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
244 |
SEAICE_MODEL |
_EXCH_XY_RS(Qsw , myThid ) |
|
./pkg/seaice/seaice_model.F |
284 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qsw ,'SIqsw ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
120 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid) |
|
./pkg/seaice/seaice_output.F |
138 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
|
./model/src/ini_ffields.F |
51 |
INI_FFIELDS |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
115 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
|
./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 |
162 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./pkg/thsice/thsice_step_temp.F |
193 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
69 |
TIMEAVE_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./verification/rotating_tank/code/apply_forcing.F |
678 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
276 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
106 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
92 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
110 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qsw, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
166 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 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 |
197 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
106 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
92 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
110 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qsw, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
166 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 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 |
197 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
107 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
154 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
233 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./pkg/atm2d/put_ocnvars.F |
76 |
PUT_OCNVARS |
Qsw(i,j,1,1)= pass_solarnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
87 |
PUT_OCNVARS |
_EXCH_XY_RS(Qsw, myThid ) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
71 |
ATM_STORE_SURFFLUX |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_phys/atm_phys_driver.F |
435 |
ATM_PHYS_DRIVER |
Qsw (1:sNx,1:sNy,bi,bj) = -s_sw_dwn(:,:) |
|
./pkg/bling/bling_light.F |
155 |
BLING_LIGHT |
& -parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)) |
|
./pkg/bling/bling_light.F |
226 |
BLING_LIGHT |
CALL DIAGNOSTICS_FILL(Qsw,'BLGQSW ',0,1,1,bi,bj,myThid) |
|
./pkg/bulk_force/bulkf_forcing.F |
185 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = -fswnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
198 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
355 |
CHEAPAML |
O Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
377 |
CHEAPAML |
Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
466 |
CHEAPAML |
Qsw(i,j,bi,bj) = -solar(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
345 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_qsw') Qsw |
|
./pkg/ctrl/ctrl_map_forcing.F |
346 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qsw(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
367 |
CTRL_MAP_FORCING |
CALL EXCH_XY_RS( Qsw , myThid ) |
|
./pkg/dic/bio_export.F |
86 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |