| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
750 |
NO PROCEDURE |
& deltaT, deltaTMom, dTtracerLev, deltaTFreeSurf, deltaTClock, |
|
./model/inc/PARAMS.h |
803 |
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 |
128 |
GGL90_CALC |
deltaTggl90 = dTtracerLev(1) |
|
./pkg/matrix/matrix_write_tendency.F |
40 |
MATRIX_WRITE_TENDENCY |
recipExpDeltaTtracer = expMatrixCounter(bi,bj)*dTtracerLev(1) |
|
./pkg/monitor/monitor.F |
153 |
MONITOR |
dT = MAX(dTtracerLev(1),deltaTmom) |
|
./pkg/monitor/monitor_g.F |
155 |
G_MONITOR |
dT = MAX(dTtracerLev(1),deltaTMom) |
|
./model/src/config_check.F |
141 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./model/src/config_check.F |
559 |
CONFIG_CHECK |
& deltaTFreeSurf.NE.dTtracerLev(1) ) THEN |
|
./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) |
|
./model/src/config_summary.F |
614 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./pkg/obcs/obcs_calc_stevens.F |
237 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
375 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
512 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
650 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./pkg/opps/opps_calc.F |
128 |
OPPS_CALC |
dtts = dTtracerLev(1) |
|
./model/src/do_atmospheric_phys.F |
111 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./pkg/ptracers/ptracers_readparms.F |
151 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = LS_nIter*dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
153 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = dTtracerLev(k) |
|
./model/src/forward_step.F |
992 |
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) |
|
./pkg/seaice/seaice_readparms.F |
271 |
SEAICE_READPARMS |
SEAICE_deltaTtherm = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
272 |
SEAICE_READPARMS |
SEAICE_deltaTdyn = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
611 |
SEAICE_READPARMS |
IF ( SEAICE_deltaTtherm .NE. dTtracerLev(1) .OR. |
|
./model/src/impldiff.F |
100 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./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 |
|
./model/src/ini_cg3d.F |
144 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./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 |
245 |
INI_PARMS |
& deltaTtracer, dTtracerLev, deltaTFreeSurf, |
|
./model/src/ini_parms.F |
837 |
INI_PARMS |
IF ( deltaTtracer .NE. dTtracerLev(1) .AND. |
|
./model/src/ini_parms.F |
838 |
INI_PARMS |
& deltaTtracer .NE. 0. .AND. dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
843 |
INI_PARMS |
ELSEIF ( dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
844 |
INI_PARMS |
deltaTtracer = dTtracerLev(1) |
|
./model/src/ini_parms.F |
864 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./model/src/salt_integrate.F |
258 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
272 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
340 |
SALT_INTEGRATE |
I gsNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/salt_integrate.F |
355 |
SALT_INTEGRATE |
I gsNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/salt_integrate.F |
446 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
453 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
460 |
SALT_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/salt_integrate.F |
483 |
SALT_INTEGRATE |
I dTtracerLev, kappaRk, recip_hFac, wFld, |
|
./model/src/set_defaults.F |
290 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
266 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
280 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
348 |
TEMP_INTEGRATE |
I gtNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/temp_integrate.F |
363 |
TEMP_INTEGRATE |
I gtNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/temp_integrate.F |
454 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
461 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
468 |
TEMP_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/temp_integrate.F |
491 |
TEMP_INTEGRATE |
I dTtracerLev, kappaRk, recip_hFac, wFld, |
|
./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 |
379 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
657 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
673 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/dic/dic_cost.F |
49 |
DIC_COST |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_ini_atmos.F |
124 |
DIC_INI_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |