| 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 |
245 |
GMREDI_CALC_PSI_BVP |
tmpFac = SQRT(gravity/rhoConst) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
246 |
GMREDI_CALC_PSI_BVP |
CALL DIAGNOSTICS_SCALE_FILL( wkb_cW, tmpFac, 1, 'GM_BVPcW', |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
248 |
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 |
|
./pkg/kpp/kpp_output.F |
211 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
213 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
229 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
365 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
367 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
87 |
KPP_OUTPUT |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_ptr.F |
100 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
106 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
71 |
KPP_TRANSPORT_PTR |
_RL tmpFac |
|
./pkg/kpp/kpp_transport_ptr.F |
90 |
KPP_TRANSPORT_PTR |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
92 |
KPP_TRANSPORT_PTR |
tmpFac = 0. _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/apply_forcing.F |
425 |
APPLY_FORCING_T |
_RL tmpFac, delPI |
|
./model/src/apply_forcing.F |
531 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
533 |
APPLY_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./model/src/apply_forcing.F |
536 |
APPLY_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./model/src/apply_forcing.F |
542 |
APPLY_FORCING_T |
& *tmpFac*recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
558 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
560 |
APPLY_FORCING_T |
tmpFac = tmpFac/atm_Cp |
|
./model/src/apply_forcing.F |
598 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
tmpFac = rUnit2mass |
|
./model/src/apply_forcing.F |
606 |
APPLY_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./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 |
|
./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 |
51 |
MOM_VI_U_CORIOLIS |
_RL oneThird, tmpFac |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
56 |
MOM_VI_U_CORIOLIS |
tmpFac = 1. _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
51 |
MOM_VI_V_CORIOLIS |
_RL oneThird, tmpFac |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
56 |
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)) |
|
./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 |
689 |
DYNAMICS |
tmpFac = 1. _d 0 |
|
./model/src/dynamics.F |
690 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(totPhihyd,tmpFac,2, |
|
./model/src/dynamics.F |
693 |
DYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(phiHydLow,tmpFac,2, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
122 |
SALT_PLUME_CALC_DEPTH |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
125 |
SALT_PLUME_CALC_DEPTH |
tmpFac = 0. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
127 |
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 |
158 |
SALT_PLUME_CALC_DEPTH |
tmpFac = (SaltPlumeCriterion - GGm1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
161 |
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 |
165 |
SALT_PLUME_CALC_DEPTH |
tmpFac = 0. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
56 |
SALT_PLUME_CALC_DEPTH |
_RL rhoBigNb, tmpFac |
|
./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 |
429 |
EXTERNAL_FORCING_T |
& *tmpFac*recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
445 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
447 |
EXTERNAL_FORCING_T |
tmpFac = tmpFac/atm_Cp |
|
./model/src/external_forcing.F |
485 |
EXTERNAL_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/external_forcing.F |
492 |
EXTERNAL_FORCING_T |
tmpFac = rUnit2mass |
|
./model/src/external_forcing.F |
493 |
EXTERNAL_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./pkg/seaice/seaice_advection.F |
147 |
SEAICE_ADVECTION |
_RL tmpFac |
|
./pkg/seaice/seaice_advection.F |
737 |
SEAICE_ADVECTION |
tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
739 |
SEAICE_ADVECTION |
& afx(i,j)*tmpFac,afx(i+1,j)*tmpFac, |
|
./pkg/seaice/seaice_advection.F |
740 |
SEAICE_ADVECTION |
& afy(i,j)*tmpFac,afy(i,j+1)*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_do_ridging.F |
228 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
229 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
230 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
92 |
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 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
536 |
SHELFICE_THERMODYNAMICS |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
537 |
SHELFICE_THERMODYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(shelficeForcingT,tmpFac,1, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
540 |
SHELFICE_THERMODYNAMICS |
tmpFac = rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
541 |
SHELFICE_THERMODYNAMICS |
CALL DIAGNOSTICS_SCALE_FILL(shelficeForcingS,tmpFac,1, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
91 |
SHELFICE_THERMODYNAMICS |
_RL tmpFac |
|
./model/src/ini_curvilinear_grid.F |
378 |
INI_CURVILINEAR_GRID |
tmpFac = rSphere / radius_fromHorizGrid |
|
./model/src/ini_curvilinear_grid.F |
379 |
INI_CURVILINEAR_GRID |
tmpFac2 = tmpFac*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
384 |
INI_CURVILINEAR_GRID |
dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
385 |
INI_CURVILINEAR_GRID |
dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
386 |
INI_CURVILINEAR_GRID |
dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
387 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
388 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
389 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
390 |
INI_CURVILINEAR_GRID |
dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
391 |
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/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', |
|
./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/pre_cg3d.F |
120 |
PRE_CG3D |
tmpFac = 0. |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
tmpFac = freeSurfFac*deepFac2F(1) |
|
./model/src/pre_cg3d.F |
145 |
PRE_CG3D |
tmpFac = 0. |
|
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
& +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/pre_cg3d.F |
60 |
PRE_CG3D |
_RL tmpFac, tmpSurf |
|
./model/src/pre_cg3d.F |
79 |
PRE_CG3D |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/pre_cg3d.F |
85 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/pre_cg3d.F |
93 |
PRE_CG3D |
tmpFac = 0. |
|
./model/src/solve_for_pressure.F |
130 |
SOLVE_FOR_PRESSURE |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/solve_for_pressure.F |
134 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
158 |
SOLVE_FOR_PRESSURE |
tmpFac = 0. |
|
./model/src/solve_for_pressure.F |
159 |
SOLVE_FOR_PRESSURE |
IF (globalArea.GT.0.) tmpFac = |
|
./model/src/solve_for_pressure.F |
164 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
58 |
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/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 |
379 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
382 |
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 |
643 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/deltaTMom |
|
./pkg/diagnostics/diagnostics_fill_state.F |
646 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
648 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
657 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
660 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
673 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
676 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
104 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
106 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
111 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
128 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
130 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
135 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
144 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
146 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
151 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
160 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
162 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
167 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
176 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
178 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
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 |