| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
397 |
KPP_CALC |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
114 |
KPP_FORCING_SURF |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_forcing_surf.F |
13 |
KPP_FORCING_SURF |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
208 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_transport_t.F |
82 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
97 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/longstep/longstep_average.F |
99 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_QswCount, LS_Qsw, Qsw, 1, myThid) |
|
./pkg/monitor/monitor.F |
136 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, Qsw , '_qsw', |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
111 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
204 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_RS(Qsw , myThid ) |
|
./model/src/diags_oceanic_surf_flux.F |
118 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
91 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qsw,tmpFac,1, |
|
./pkg/seaice/seaice_budget_ocean.F |
103 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
114 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
245 |
SEAICE_MODEL |
_EXCH_XY_RS(Qsw , myThid ) |
|
./pkg/seaice/seaice_model.F |
292 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qsw ,'SIqsw ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
104 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid) |
|
./pkg/seaice/seaice_output.F |
116 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
|
./model/src/external_fields_load.F |
283 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing_surf.F |
223 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
186 |
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)+ |
|
./model/src/ini_forcing.F |
161 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 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 |
191 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./model/src/ini_forcing.F |
54 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
336 |
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 |
85 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
99 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
206 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
163 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 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 |
194 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
56 |
ATM_STORE_QSHORTWAVE |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
128 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
152 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
206 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
232 |
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/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/dic/bio_export.F |
88 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./model/inc/FFIELDS.h |
102 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
88 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |