| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1182 |
TURBIO |
tmpFac = 1.e6 |
|
./pkg/fizhi/fizhi_turb.F |
1184 |
TURBIO |
CALL DIAGNOSTICS_SCALE_FILL( qliqtmp,tmpFac,1, |
|
./pkg/fizhi/fizhi_turb.F |
1214 |
TURBIO |
tmpFac = atimstp * secday |
|
./pkg/fizhi/fizhi_turb.F |
1215 |
TURBIO |
CALL DIAGNOSTICS_SCALE_FILL(dvturb,tmpFac,1, |
|
./pkg/fizhi/fizhi_turb.F |
1217 |
TURBIO |
CALL DIAGNOSTICS_SCALE_FILL(duturb,tmpFac,1, |
|
./pkg/fizhi/fizhi_turb.F |
1219 |
TURBIO |
tmpFac = atimstp * secday * 1000. |
|
./pkg/fizhi/fizhi_turb.F |
1220 |
TURBIO |
CALL DIAGNOSTICS_SCALE_FILL(dqturb,tmpFac,1, |
|
./pkg/fizhi/fizhi_turb.F |
162 |
TURBIO |
_RL tmpdiag(im*jm,1), tmpFac |
|
./pkg/fizhi/fizhi_turb.F |
313 |
TURBIO |
tmpFac = -1. |
|
./pkg/fizhi/fizhi_turb.F |
314 |
TURBIO |
CALL DIAGNOSTICS_SCALE_FILL( tgz,tmpFac,1, |
|
./pkg/generic_advdiff/gad_biharm_r.F |
52 |
GAD_BIHARM_R |
_RL tmpFac |
|
./pkg/generic_advdiff/gad_biharm_r.F |
68 |
GAD_BIHARM_R |
tmpFac = recip_drC(kl)*deepFac2F(kl)*rhoFacF(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
72 |
GAD_BIHARM_R |
& *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
82 |
GAD_BIHARM_R |
tmpFac = recip_drF(kl)*recip_deepFac2C(kl)*recip_rhoFacC(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
97 |
GAD_BIHARM_R |
& *tmpFac*_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/salt_fill.F |
65 |
SALT_FILL |
_RL tmpFac |
|
./pkg/generic_advdiff/salt_fill.F |
75 |
SALT_FILL |
tmpFac = -1. _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
76 |
SALT_FILL |
CALL DIAGNOSTICS_SCALE_FILL(salt,tmpFac,1,'SALTFILL', |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
247 |
GMREDI_CALC_PSI_BVP |
tmpFac = SQRT(gravity/rhoConst) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
248 |
GMREDI_CALC_PSI_BVP |
CALL DIAGNOSTICS_SCALE_FILL( wkb_cW, tmpFac, 1, 'GM_BVPcW', |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
250 |
GMREDI_CALC_PSI_BVP |
CALL DIAGNOSTICS_SCALE_FILL( wkb_cS, tmpFac, 1, 'GM_BVPcS', |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
62 |
GMREDI_CALC_PSI_BVP |
_RL tmpFac |
|
./model/src/apply_forcing.F |
446 |
APPLY_FORCING_T |
_RL tmpFac, delPI |
|
./model/src/apply_forcing.F |
546 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
548 |
APPLY_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./model/src/apply_forcing.F |
551 |
APPLY_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./model/src/apply_forcing.F |
556 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/apply_forcing.F |
572 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
574 |
APPLY_FORCING_T |
tmpFac = tmpFac/atm_Cp |
|
./model/src/apply_forcing.F |
612 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/apply_forcing.F |
619 |
APPLY_FORCING_T |
tmpFac = rUnit2mass |
|
./model/src/apply_forcing.F |
620 |
APPLY_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./model/src/calc_3d_diffusivity.F |
277 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
280 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
288 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
294 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
300 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
301 |
CALC_3D_DIFFUSIVITY |
& * tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
309 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_3d_diffusivity.F |
311 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
324 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
327 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,km,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
335 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
341 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
347 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
348 |
CALC_3D_DIFFUSIVITY |
& * tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
356 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_3d_diffusivity.F |
358 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
79 |
CALC_3D_DIFFUSIVITY |
_RL tmpFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_output.F |
224 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
226 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
242 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
384 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
399 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
90 |
KPP_OUTPUT |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_ptr.F |
101 |
KPP_TRANSPORT_PTR |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
109 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
115 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
76 |
KPP_TRANSPORT_PTR |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_ptr.F |
99 |
KPP_TRANSPORT_PTR |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
65 |
KPP_TRANSPORT_S |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_s.F |
90 |
KPP_TRANSPORT_S |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
92 |
KPP_TRANSPORT_S |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
97 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
64 |
KPP_TRANSPORT_T |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_t.F |
73 |
KPP_TRANSPORT_T |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_t.F |
75 |
KPP_TRANSPORT_T |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_transport_t.F |
80 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
121 |
CALC_OCE_MXLAYER |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./model/src/calc_oce_mxlayer.F |
124 |
CALC_OCE_MXLAYER |
tmpFac = 0. |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
169 |
CALC_OCE_MXLAYER |
tmpFac = 0. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
171 |
CALC_OCE_MXLAYER |
tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1) |
|
./model/src/calc_oce_mxlayer.F |
172 |
CALC_OCE_MXLAYER |
IF ( tmpFac .GT. 1. _d 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
173 |
CALC_OCE_MXLAYER |
tmpFac = 1. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
174 |
CALC_OCE_MXLAYER |
& + ( tmpFac - 1. _d 0 )/( hMixCriteria - 1. _d 0 ) |
|
./model/src/calc_oce_mxlayer.F |
176 |
CALC_OCE_MXLAYER |
tmpFac = MAX( 0. _d 0, MIN( tmpFac, 2. _d 0 ) ) |
|
./model/src/calc_oce_mxlayer.F |
179 |
CALC_OCE_MXLAYER |
& - drF(k)*tmpFac*0.5 _d 0 |
|
./model/src/calc_oce_mxlayer.F |
192 |
CALC_OCE_MXLAYER |
tmpFac = (1. _d 0 - hMixSmooth ) / 4. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
196 |
CALC_OCE_MXLAYER |
& tmpFac * ( hMixLayer(i-1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
202 |
CALC_OCE_MXLAYER |
& tmpFac * ( maskC(i-1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
63 |
CALC_OCE_MXLAYER |
_RL tmpFac, sigmAv |
|
./model/src/calc_viscosity.F |
170 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
173 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
181 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
187 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
193 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
194 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
202 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
204 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
213 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
216 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
224 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
230 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
236 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
237 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
245 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
247 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
260 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
264 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
272 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
278 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
284 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
285 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
293 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
295 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
304 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
308 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
316 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
322 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
328 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
329 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
337 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
339 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
52 |
CALC_VISCOSITY |
_RL tmpFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
123 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drF(kl)**twoThird |
|
./pkg/mom_common/mom_calc_smag_3d.F |
130 |
MOM_CALC_SMAG_3D |
& smag3D_hLsC(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
147 |
MOM_CALC_SMAG_3D |
& smag3D_hLsZ(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
175 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drC(kl)**twoThird |
|
./pkg/mom_common/mom_calc_smag_3d.F |
182 |
MOM_CALC_SMAG_3D |
& smag3D_hLsW(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
199 |
MOM_CALC_SMAG_3D |
& smag3D_hLsS(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
79 |
MOM_CALC_SMAG_3D |
_RL twoThird, tmpFac |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
53 |
MOM_VI_U_CORIOLIS |
_RL oneThird, tmpFac |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
58 |
MOM_VI_U_CORIOLIS |
tmpFac = 1. _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
53 |
MOM_VI_V_CORIOLIS |
_RL oneThird, tmpFac |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
58 |
MOM_VI_V_CORIOLIS |
tmpFac = 1. _d 0 |
|
./pkg/monitor/mon_vort3.F |
50 |
MON_VORT3 |
_RL tmpFac |
|
./pkg/monitor/mon_vort3.F |
80 |
MON_VORT3 |
tmpFac = 0. |
|
./pkg/monitor/mon_vort3.F |
82 |
MON_VORT3 |
& tmpFac = (0.5+abEps) / implicDiv2Dflow |
|
./pkg/monitor/mon_vort3.F |
86 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
101 |
CPL_DIAGNOSTICS_FILL |
I tmpFac, 1, 'CPL_snwH', |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
118 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic1', |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
122 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic2', |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
45 |
CPL_DIAGNOSTICS_FILL |
_RL tmpFac |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
94 |
CPL_DIAGNOSTICS_FILL |
tmpFac = 1. _d 0 |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
97 |
CPL_DIAGNOSTICS_FILL |
I tmpFac, 1, 'CPL_iceH', |
|
./model/src/diags_oceanic_surf_flux.F |
100 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingTice,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
104 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
105 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingT,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
109 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
110 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingS,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
52 |
DIAGS_OCEANIC_SURF_FLUX |
_RL tmpFac |
|
./model/src/diags_oceanic_surf_flux.F |
62 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
63 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( EmPmR,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
67 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
68 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( saltFlux,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
72 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
73 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qnet,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
77 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
78 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( Qsw,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
99 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_rho.F |
153 |
DIAGS_RHO_G |
_RL tmpFac |
|
./model/src/diags_rho.F |
159 |
DIAGS_RHO_G |
tmpFac = 1. _d 0 |
|
./model/src/diags_rho.F |
160 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_SCALE_FILL( rho3d, tmpFac, 2, |
|
./model/src/dynamics.F |
195 |
DYNAMICS |
_RL tmpFac |
|
./model/src/dynamics.F |
489 |
DYNAMICS |
tmpFac = -1. _d 0 |
|
./model/src/dynamics.F |
490 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL( dPhiHydX, tmpFac, 1, |
|
./model/src/dynamics.F |
492 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL( dPhiHydY, tmpFac, 1, |
|
./model/src/dynamics.F |
692 |
DYNAMICS |
tmpFac = 1. _d 0 |
|
./model/src/dynamics.F |
693 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(totPhihyd,tmpFac,2, |
|
./model/src/dynamics.F |
696 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(phiHydLow,tmpFac,2, |
|
./model/src/external_forcing.F |
342 |
EXTERNAL_FORCING_T |
_RL tmpFac, delPI |
|
./model/src/external_forcing.F |
418 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
420 |
EXTERNAL_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./model/src/external_forcing.F |
423 |
EXTERNAL_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./model/src/external_forcing.F |
428 |
EXTERNAL_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/external_forcing.F |
444 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
446 |
EXTERNAL_FORCING_T |
tmpFac = tmpFac/atm_Cp |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/external_forcing.F |
491 |
EXTERNAL_FORCING_T |
tmpFac = rUnit2mass |
|
./model/src/external_forcing.F |
492 |
EXTERNAL_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
125 |
SALT_PLUME_CALC_DEPTH |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
128 |
SALT_PLUME_CALC_DEPTH |
tmpFac = 0. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
161 |
SALT_PLUME_CALC_DEPTH |
tmpFac = (SaltPlumeCriterion - GGm1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
164 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
168 |
SALT_PLUME_CALC_DEPTH |
tmpFac = 0. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
59 |
SALT_PLUME_CALC_DEPTH |
_RL rhoBigNb, tmpFac |
|
./model/src/forcing_surf_relax.F |
248 |
FORCING_SURF_RELAX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/forcing_surf_relax.F |
249 |
FORCING_SURF_RELAX |
CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingT, tmpFac, 1, |
|
./model/src/forcing_surf_relax.F |
253 |
FORCING_SURF_RELAX |
tmpFac = rUnit2mass |
|
./model/src/forcing_surf_relax.F |
254 |
FORCING_SURF_RELAX |
CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingS, tmpFac, 1, |
|
./model/src/forcing_surf_relax.F |
59 |
FORCING_SURF_RELAX |
_RL tmpFac |
|
./pkg/seaice/seaice_advection.F |
150 |
SEAICE_ADVECTION |
_RL tmpFac |
|
./pkg/seaice/seaice_advection.F |
740 |
SEAICE_ADVECTION |
tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
742 |
SEAICE_ADVECTION |
& afx(i,j)*tmpFac,afx(i+1,j)*tmpFac, |
|
./pkg/seaice/seaice_advection.F |
743 |
SEAICE_ADVECTION |
& afy(i,j)*tmpFac,afy(i,j+1)*tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
231 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
232 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
233 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
247 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
248 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
95 |
SEAICE_DO_RIDGING |
_RL tmp, tmpFac, hL, hR, expL, expR |
|
./pkg/seaice/seaice_init_fixed.F |
51 |
SEAICE_INIT_FIXED |
_RL tmpFac |
|
./pkg/seaice/seaice_init_fixed.F |
75 |
SEAICE_INIT_FIXED |
tmpFac = -1.0 |
|
./pkg/seaice/seaice_init_fixed.F |
80 |
SEAICE_INIT_FIXED |
I 2, tmpFac, |
|
./model/src/ini_cg3d.F |
143 |
INI_CG3D |
tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k) |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac |
|
./model/src/ini_cg3d.F |
160 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
52 |
INI_CG3D |
_RL tmpFac, nh_Fac, igwFac |
|
./model/src/ini_curvilinear_grid.F |
388 |
INI_CURVILINEAR_GRID |
tmpFac = rSphere / radius_fromHorizGrid |
|
./model/src/ini_curvilinear_grid.F |
389 |
INI_CURVILINEAR_GRID |
tmpFac2 = tmpFac*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
394 |
INI_CURVILINEAR_GRID |
dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
395 |
INI_CURVILINEAR_GRID |
dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
396 |
INI_CURVILINEAR_GRID |
dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
398 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
400 |
INI_CURVILINEAR_GRID |
dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
401 |
INI_CURVILINEAR_GRID |
dyU(i,j,bi,bj) = dyU(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
53 |
INI_CURVILINEAR_GRID |
_RL tmpFac, tmpFac2 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
101 |
SHELFICE_THERMODYNAMICS |
_RL tmpFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacW(I, J,K,bi,bj) + _hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
276 |
SHELFICE_THERMODYNAMICS |
IF ( tmpFac.GT.0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
280 |
SHELFICE_THERMODYNAMICS |
& )/tmpFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacS(I,J, K,bi,bj) + _hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
282 |
SHELFICE_THERMODYNAMICS |
IF ( tmpFac.GT.0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
286 |
SHELFICE_THERMODYNAMICS |
& )/tmpFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
598 |
SHELFICE_THERMODYNAMICS |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
599 |
SHELFICE_THERMODYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(shelficeForcingT,tmpFac,1, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
602 |
SHELFICE_THERMODYNAMICS |
tmpFac = rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
603 |
SHELFICE_THERMODYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(shelficeForcingS,tmpFac,1, |
|
./pkg/streamice/streamice_fields_load.F |
65 |
STREAMICE_FIELDS_LOAD |
_RL myRelTime, fac, tmpFac |
|
./pkg/streamice/streamice_fields_load.F |
88 |
STREAMICE_FIELDS_LOAD |
O nmP, nm0, nm1, tmpFac, fac, |
|
./pkg/streamice/streamice_fields_load.F |
96 |
STREAMICE_FIELDS_LOAD |
O nmP, nm0, nm1, tmpFac, fac, |
|
./pkg/thsice/thsice_advdiff.F |
101 |
THSICE_ADVDIFF |
_RL tmpFac |
|
./pkg/thsice/thsice_advdiff.F |
159 |
THSICE_ADVDIFF |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
161 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./pkg/thsice/thsice_advdiff.F |
164 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_advdiff.F |
176 |
THSICE_ADVDIFF |
I iceTmp,tmpFac,1,'SI_AdvQ1', |
|
./pkg/thsice/thsice_advdiff.F |
180 |
THSICE_ADVDIFF |
I iceTmp,tmpFac,1,'SI_AdvQ2', |
|
./pkg/thsice/thsice_advdiff.F |
548 |
THSICE_ADVDIFF |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
550 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./pkg/thsice/thsice_advdiff.F |
553 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_advdiff.F |
565 |
THSICE_ADVDIFF |
I iceVol,tmpFac,1,'SI_AdvQ1', |
|
./pkg/thsice/thsice_advdiff.F |
569 |
THSICE_ADVDIFF |
I iceVol,tmpFac,1,'SI_AdvQ2', |
|
./pkg/thsice/thsice_advection.F |
146 |
THSICE_ADVECTION |
_RL tmpFac |
|
./pkg/thsice/thsice_advection.F |
751 |
THSICE_ADVECTION |
tmpFac= deltaTadvect*recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
753 |
THSICE_ADVECTION |
& afx(i,j)*tmpFac,afx(i+1,j)*tmpFac, |
|
./pkg/thsice/thsice_advection.F |
754 |
THSICE_ADVECTION |
& afy(i,j)*tmpFac,afy(i,j+1)*tmpFac |
|
./pkg/thsice/thsice_balance_frw.F |
114 |
THSICE_BALANCE_FRW |
tmpFac = sumFrW / sumPrc |
|
./pkg/thsice/thsice_balance_frw.F |
116 |
THSICE_BALANCE_FRW |
tmpFac = 0. |
|
./pkg/thsice/thsice_balance_frw.F |
125 |
THSICE_BALANCE_FRW |
tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
56 |
THSICE_BALANCE_FRW |
_RL tmpFac, tmpVar |
|
./pkg/thsice/thsice_diagnostics_state.F |
50 |
THSICE_DIAGNOSTICS_STATE |
_RL tmpFac |
|
./pkg/thsice/thsice_diagnostics_state.F |
58 |
THSICE_DIAGNOSTICS_STATE |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_diagnostics_state.F |
60 |
THSICE_DIAGNOSTICS_STATE |
I iceHeight, iceMask,tmpFac,1,'SI_Thick', |
|
./pkg/thsice/thsice_diagnostics_state.F |
63 |
THSICE_DIAGNOSTICS_STATE |
I snowHeight,iceMask,tmpFac,1,'SI_SnowH', |
|
./pkg/thsice/thsice_diagnostics_state.F |
66 |
THSICE_DIAGNOSTICS_STATE |
I Tsrf, iceMask,tmpFac,1,'SI_Tsrf ', |
|
./pkg/thsice/thsice_diagnostics_state.F |
69 |
THSICE_DIAGNOSTICS_STATE |
I Tice1, iceMask,tmpFac,1,'SI_Tice1', |
|
./pkg/thsice/thsice_diagnostics_state.F |
72 |
THSICE_DIAGNOSTICS_STATE |
I Tice2, iceMask,tmpFac,1,'SI_Tice2', |
|
./pkg/thsice/thsice_diagnostics_state.F |
91 |
THSICE_DIAGNOSTICS_STATE |
I tmpFld, tmpFac, 1, 'SI_Qice1', |
|
./pkg/thsice/thsice_diagnostics_state.F |
95 |
THSICE_DIAGNOSTICS_STATE |
I tmpFld, tmpFac, 1, 'SI_Qice2', |
|
./model/src/pre_cg3d.F |
101 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
119 |
PRE_CG3D |
tmpFac = freeSurfFac*implicDiv2DFlow/deltaTMom |
|
./model/src/pre_cg3d.F |
129 |
PRE_CG3D |
& + tmpFac*( wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
139 |
PRE_CG3D |
tmpFac = freeSurfFac*implicDiv2DFlow/deltaTMom |
|
./model/src/pre_cg3d.F |
145 |
PRE_CG3D |
& + tmpFac*wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
61 |
PRE_CG3D |
_RL locGamma, surfFac, tmpFac |
|
./model/src/pre_cg3d.F |
95 |
PRE_CG3D |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow/deltaTMom |
|
./verification/rotating_tank/code/apply_forcing.F |
407 |
APPLY_FORCING_T |
_RL tmpFac, delPI |
|
./verification/rotating_tank/code/apply_forcing.F |
548 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
550 |
APPLY_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
553 |
APPLY_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
559 |
APPLY_FORCING_T |
& *tmpFac*recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
575 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
577 |
APPLY_FORCING_T |
tmpFac = tmpFac/atm_Cp |
|
./verification/rotating_tank/code/apply_forcing.F |
615 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./verification/rotating_tank/code/apply_forcing.F |
622 |
APPLY_FORCING_T |
tmpFac = rUnit2mass |
|
./verification/rotating_tank/code/apply_forcing.F |
623 |
APPLY_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./model/src/solve_for_pressure.F |
137 |
SOLVE_FOR_PRESSURE |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/solve_for_pressure.F |
141 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
165 |
SOLVE_FOR_PRESSURE |
tmpFac = 0. |
|
./model/src/solve_for_pressure.F |
166 |
SOLVE_FOR_PRESSURE |
IF (globalArea.GT.0.) tmpFac = |
|
./model/src/solve_for_pressure.F |
171 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
62 |
SOLVE_FOR_PRESSURE |
_RL tmpFac |
|
./model/src/timestep_wvel.F |
103 |
TIMESTEP_WVEL |
& + deltaTmom*tmpFac*gWtmp(i,j) |
|
./model/src/timestep_wvel.F |
49 |
TIMESTEP_WVEL |
_RL tmpFac, nh_Fac, igwFac |
|
./model/src/timestep_wvel.F |
68 |
TIMESTEP_WVEL |
tmpFac = pfFacMom*(1. _d 0 - implicitNHPress) |
|
./model/src/timestep_wvel.F |
74 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
82 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
97 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*wUnit2rVel(k)*wUnit2rVel(k) |
|
./model/src/timestep_wvel.F |
99 |
TIMESTEP_WVEL |
IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
45 |
CPL_DIAGNOSTICS_FILL |
_RL tmpFac |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
69 |
CPL_DIAGNOSTICS_FILL |
tmpFac = 1. _d 0 |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
72 |
CPL_DIAGNOSTICS_FILL |
I tmpFac, 1, 'CPL_iceH', |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
76 |
CPL_DIAGNOSTICS_FILL |
I tmpFac, 1, 'CPL_snwH', |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
93 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic1', |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
97 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic2', |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
204 |
CTRL_GET_GEN_REC |
O countP, count0, count1, tmpFac, fac, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
79 |
CTRL_GET_GEN_REC |
_RL myRelTime, tmpFac |
|
./pkg/diagnostics/diagnostics_fill_state.F |
353 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/deltaTMom |
|
./pkg/diagnostics/diagnostics_fill_state.F |
354 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
356 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
366 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
384 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
54 |
DIAGNOSTICS_FILL_STATE |
_RL tmpFac, uBarC, vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
653 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/deltaTMom |
|
./pkg/diagnostics/diagnostics_fill_state.F |
656 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
658 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
670 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
107 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
109 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
114 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
131 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
133 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
138 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
147 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
149 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
154 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
163 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
165 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
170 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
179 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
181 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
192 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
61 |
DIAGNOSTICS_SUM_LEVELS |
_RL tmpFac, hFacLoc |
|
./pkg/down_slope/dwnslp_apply.F |
123 |
DWNSLP_APPLY |
tmpFac = -1. _d 0 |
|
./pkg/down_slope/dwnslp_apply.F |
124 |
DWNSLP_APPLY |
CALL DIAGNOSTICS_SCALE_FILL( gTracer, tmpFac, 1, diagName, |
|
./pkg/down_slope/dwnslp_apply.F |
84 |
DWNSLP_APPLY |
_RL tmpFac |