| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
626 |
NO PROCEDURE |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
|
./model/inc/PARAMS.h |
673 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
356 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
372 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
388 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
633 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
649 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
665 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
681 |
DIAGNOSTICS_FILL_STATE |
. *86400./dTtracerLev(1) |
|
./model/src/ini_cg3d.F |
138 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./pkg/matrix/matrix_write_tendency.F |
37 |
MATRIX_WRITE_TENDENCY |
& (1. _d 0)/(expMatrixCounter*dTtracerLev(1)) |
|
./model/src/config_check.F |
122 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./model/src/config_check.F |
381 |
CONFIG_CHECK |
& deltaTfreesurf.NE.dTtracerLev(1) ) THEN |
|
./pkg/dic/dic_biotic_forcing.F |
225 |
DIC_BIOTIC_FORCING |
& PTR_DIC(i,j,k)+GDIC(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
227 |
DIC_BIOTIC_FORCING |
& PTR_ALK(i,j,k)+GALK(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
229 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
231 |
DIC_BIOTIC_FORCING |
& PTR_DOP(i,j,k)+GDOP(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
233 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
236 |
DIC_BIOTIC_FORCING |
& PTR_FE(i,j,k)+GFE(i,j,k)*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 |
|
./model/src/timestep_tracer.F |
47 |
TIMESTEP_TRACER |
& +dTtracerLev(k)*gTracer(i,j,k,bi,bj) |
|
./model/src/ini_parms.F |
214 |
INI_PARMS |
& deltaTtracer, dTtracerLev, deltaTfreesurf, |
|
./model/src/ini_parms.F |
781 |
INI_PARMS |
IF ( deltaTtracer .NE. dTtracerLev(1) .AND. |
|
./model/src/ini_parms.F |
782 |
INI_PARMS |
& deltaTtracer .NE. 0. .AND. dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
787 |
INI_PARMS |
ELSEIF ( dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
788 |
INI_PARMS |
deltaTtracer = dTtracerLev(1) |
|
./model/src/ini_parms.F |
798 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./model/src/timestep_wvel.F |
77 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/forward_step.F |
711 |
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/config_summary.F |
428 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./model/src/impldiff.F |
79 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./model/src/set_defaults.F |
231 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/do_atmospheric_phys.F |
58 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./pkg/ggl90/ggl90_calc.F |
115 |
GGL90_CALC |
deltaTggl90 = dTtracerLev(1) |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/opps/opps_calc.F |
123 |
OPPS_CALC |
dtts = dTtracerLev(1) |
|
./pkg/monitor/monitor.F |
124 |
MONITOR |
dT=MAX(dTtracerLev(1),deltaTmom) |
|
./pkg/thsice/thsice_readparms.F |
126 |
THSICE_READPARMS |
thSIce_deltaT = dTtracerLev(1) |
|
./pkg/thsice/thsice_readparms.F |
127 |
THSICE_READPARMS |
ocean_deltaT = dTtracerLev(1) |
|
./pkg/generic_advdiff/gad_advection.F |
372 |
GAD_ADVECTION |
I dTtracerLev(k),uTrans,uFld,localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
375 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
379 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
383 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
414 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
426 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
444 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
536 |
GAD_ADVECTION |
I dTtracerLev(k),vTrans,vFld,localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
539 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
543 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
547 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
578 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
590 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
608 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
653 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
770 |
GAD_ADVECTION |
I dTtracerLev(k),rTrans,wFld,localTijk, |
|
./pkg/generic_advdiff/gad_advection.F |
773 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
777 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
781 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
801 |
GAD_ADVECTION |
localTij(i,j)=localTijk(i,j,k)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
808 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
136 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
146 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
209 |
GAD_IMPLICIT_R |
& + dTtracerLev(1)*recip_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
227 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
234 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
240 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, localTijk, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
248 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
254 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, localTijk, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
214 |
GAD_CALC_RHS |
I dTtracerLev(k), uTrans, uFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
217 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
225 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
233 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
237 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
322 |
GAD_CALC_RHS |
I dTtracerLev(k), vTrans, vFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
325 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
333 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
345 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
432 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
436 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
452 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
456 |
GAD_CALC_RHS |
I dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/shap_filt/shap_filt_readparms.F |
75 |
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 |
222 |
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/seaice/seaice_readparms.F |
119 |
SEAICE_READPARMS |
SEAICE_deltaTtherm = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
120 |
SEAICE_READPARMS |
SEAICE_deltaTdyn = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
121 |
SEAICE_READPARMS |
SEAICE_deltaTevp = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
277 |
SEAICE_READPARMS |
IF ( SEAICE_deltaTtherm .NE. dTtracerLev(1) .OR. |