| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
800 |
NO PROCEDURE |
& deltaT, deltaTMom, dTtracerLev, deltaTFreeSurf, deltaTClock, |
|
./model/inc/PARAMS.h |
859 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./pkg/frazil/frazil_calc_rhs.F |
96 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k) |
|
./pkg/frazil/frazil_calc_rhs.F |
99 |
FRAZIL_CALC_RHS |
& - Tresid / dTtracerLev(kTop) |
|
./pkg/ggl90/ggl90_calc.F |
141 |
GGL90_CALC |
deltaTggl90 = dTtracerLev(1) |
|
./pkg/ggl90/ggl90_idemix.F |
84 |
GGL90_IDEMIX |
deltaTggl90 = dTtracerLev(1) |
|
./pkg/matrix/matrix_write_tendency.F |
40 |
MATRIX_WRITE_TENDENCY |
recipExpDeltaTtracer = expMatrixCounter(bi,bj)*dTtracerLev(1) |
|
./model/src/config_check.F |
166 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./model/src/config_check.F |
642 |
CONFIG_CHECK |
& deltaTFreeSurf.NE.dTtracerLev(1) ) THEN |
|
./pkg/monitor/monitor.F |
161 |
MONITOR |
dT = MAX(dTtracerLev(1),deltaTmom) |
|
./pkg/monitor/monitor_g.F |
155 |
G_MONITOR |
dT = MAX(dTtracerLev(1),deltaTMom) |
|
./model/src/config_summary.F |
676 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
156 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
158 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
190 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
192 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
89 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
589 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./model/src/do_atmospheric_phys.F |
125 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./pkg/opps/opps_calc.F |
128 |
OPPS_CALC |
dtts = dTtracerLev(1) |
|
./pkg/ptracers/ptracers_readparms.F |
153 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = LS_nIter*dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
155 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = dTtracerLev(k) |
|
./model/src/forward_step.F |
1140 |
FORWARD_STEP |
CALL STEP_FIZHI_CORR ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./model/src/impldiff.F |
100 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./model/src/ini_cg3d.F |
144 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./pkg/seaice/seaice_readparms.F |
305 |
SEAICE_READPARMS |
SEAICE_deltaTtherm = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
306 |
SEAICE_READPARMS |
SEAICE_deltaTdyn = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
699 |
SEAICE_READPARMS |
IF ( SEAICE_deltaTtherm .NE. dTtracerLev(1) .OR. |
|
./pkg/shap_filt/shap_filt_readparms.F |
86 |
SHAP_FILT_READPARMS |
Shap_Trtau = dTtracerLev(1) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
113 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
165 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
111 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
163 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/thsice/thsice_readparms.F |
154 |
THSICE_READPARMS |
thSIce_deltaT = dTtracerLev(1) |
|
./pkg/thsice/thsice_readparms.F |
156 |
THSICE_READPARMS |
ocean_deltaT = dTtracerLev(1) |
|
./model/src/ini_parms.F |
255 |
INI_PARMS |
& deltaTtracer, dTtracerLev, deltaTFreeSurf, |
|
./model/src/ini_parms.F |
878 |
INI_PARMS |
IF ( deltaTtracer .NE. dTtracerLev(1) .AND. |
|
./model/src/ini_parms.F |
879 |
INI_PARMS |
& deltaTtracer .NE. 0. .AND. dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
884 |
INI_PARMS |
ELSEIF ( dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
885 |
INI_PARMS |
deltaTtracer = dTtracerLev(1) |
|
./model/src/ini_parms.F |
905 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./model/src/salt_integrate.F |
266 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
280 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
348 |
SALT_INTEGRATE |
I gsNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/salt_integrate.F |
363 |
SALT_INTEGRATE |
I gsNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/salt_integrate.F |
454 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
461 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
468 |
SALT_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/salt_integrate.F |
488 |
SALT_INTEGRATE |
I dTtracerLev, kappaRk, recip_hFac, wFld, |
|
./model/src/set_defaults.F |
299 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
274 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
288 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
356 |
TEMP_INTEGRATE |
I gtNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/temp_integrate.F |
371 |
TEMP_INTEGRATE |
I gtNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/temp_integrate.F |
462 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
469 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
476 |
TEMP_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/temp_integrate.F |
496 |
TEMP_INTEGRATE |
I dTtracerLev, kappaRk, recip_hFac, wFld, |
|
./model/src/thermodynamics.F |
275 |
THERMODYNAMICS |
I uFld, vFld, wFld, dTtracerLev, |
|
./model/src/timestep_wvel.F |
98 |
TIMESTEP_WVEL |
& *dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/tracers_iigw_correction.F |
83 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/tracers_iigw_correction.F |
99 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./pkg/atm2d/init_atm2d.F |
68 |
INIT_ATM2D |
IF (dtocno.NE.dTtracerLev(1)) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
115 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) ) |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
384 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/dic/dic_atmos.F |
108 |
DIC_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_cost.F |
52 |
DIC_COST |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/ecco/cost_gencal.F |
85 |
COST_GENCAL |
if ( localperiod.EQ.dTtracerLev(1) ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
196 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = dTtracerLev(1) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
200 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = dTtracerLev(1) |