| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_mapfields.F |
299 |
EXF_MAPFIELDS |
Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
349 |
EXF_MAPFIELDS |
_EXCH_XY_RS( Qsw, myThid ) |
|
./pkg/kpp/kpp_calc.F |
429 |
KPP_CALC |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
107 |
KPP_FORCING_SURF |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_forcing_surf.F |
16 |
KPP_FORCING_SURF |
I Qsw, |
|
./pkg/kpp/kpp_forcing_surf.F |
214 |
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 |
|
./model/src/apply_forcing.F |
676 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,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', |
|
./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 |
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, |
|
./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 |
548 |
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 |
214 |
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 |
237 |
SEAICE_MODEL |
_EXCH_XY_RS(Qsw , myThid ) |
|
./pkg/seaice/seaice_model.F |
277 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qsw ,'SIqsw ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
118 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid) |
|
./pkg/seaice/seaice_output.F |
132 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
|
./model/src/ini_forcing.F |
188 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
|
./model/src/ini_forcing.F |
195 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
235 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./model/src/ini_forcing.F |
57 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./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 |
102 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
88 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
104 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qsw, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
211 |
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 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
102 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
88 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
104 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( Qsw, fixVal, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
211 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
163 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/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_oad/ini_forcing.F |
194 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
53 |
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 |
467 |
ATM_PHYS_DRIVER |
Qsw (1:sNx,1:sNy,bi,bj) = -s_sw_dwn(:,:) |
|
./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 |
442 |
CHEAPAML |
O Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
464 |
CHEAPAML |
Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
552 |
CHEAPAML |
Qsw(i,j,bi,bj) = -solar(i,j,bi,bj) |
|
./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 |
103 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
90 |
NO PROCEDURE |
COMMON /FFIELDS_Qsw/ Qsw |