| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
102 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
86 |
NO PROCEDURE |
& , Qsw |
|
./pkg/aim_v23/aim_aim2sioce.F |
111 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
133 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
156 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
157 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
210 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
236 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./model/src/external_forcing.F |
330 |
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/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/OpenAD/code/FFIELDS.h |
100 |
NO PROCEDURE |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code/FFIELDS.h |
87 |
NO PROCEDURE |
& , Qsw |
|
./verification/natl_box/code/external_fields_load.F |
221 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./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_surf.F |
180 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
149 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
|
./model/src/ini_forcing.F |
156 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
182 |
INI_FORCING |
_EXCH_XY_R4(Qsw , myThid ) |
|
./model/src/ini_forcing.F |
54 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
105 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
75 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_calc.F |
392 |
KPP_CALC |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_transport_t.F |
71 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
86 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
56 |
ATM_STORE_QSHORTWAVE |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/timeave/timeave_surf_flux.F |
76 |
TIMEAVE_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
109 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
173 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_R4(Qsw , myThid ) |
|
./pkg/thsice/thsice_step_temp.F |
145 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
119 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( Qsw , 'Current Qsw ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
75 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
88 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qsw.',suff,Qsw,myIter,myThid) |
|
./pkg/seaice/budget.F |
110 |
BUDGET |
QSWO(I,J,bi,bj)=Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_model.F |
150 |
SEAICE_MODEL |
_EXCH_XY_R4(Qsw , myThid ) |