| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
123 |
OPPS_CALC |
dtts = dTtracerLev(1) |
|
./pkg/dic/dic_biotic_forcing.F |
199 |
DIC_BIOTIC_FORCING |
& PTR_DIC(i,j,k)+GDIC(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
201 |
DIC_BIOTIC_FORCING |
& PTR_ALK(i,j,k)+GALK(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
203 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
205 |
DIC_BIOTIC_FORCING |
& PTR_DOP(i,j,k)+GDOP(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
207 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*dTtracerLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
210 |
DIC_BIOTIC_FORCING |
& PTR_FE(i,j,k)+GFE(i,j,k)*dTtracerLev(k) |
|
./model/src/do_atmospheric_phys.F |
57 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./pkg/thsice/thsice_readparms.F |
124 |
THSICE_READPARMS |
thSIce_deltaT = dTtracerLev(1) |
|
./pkg/thsice/thsice_readparms.F |
125 |
THSICE_READPARMS |
ocean_deltaT = dTtracerLev(1) |
|
./model/src/config_summary.F |
377 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./model/src/config_check.F |
120 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./model/src/config_check.F |
352 |
CONFIG_CHECK |
& deltaTfreesurf.NE.dTtracerLev(1) ) THEN |
|
./model/src/impldiff.F |
79 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./model/src/timestep_tracer.F |
47 |
TIMESTEP_TRACER |
& +dTtracerLev(k)*gTracer(i,j,k,bi,bj) |
|
./model/src/ini_parms.F |
195 |
INI_PARMS |
& deltaT, deltaTmom, deltaTtracer, dTtracerLev, deltaTfreesurf, |
|
./model/src/ini_parms.F |
721 |
INI_PARMS |
IF ( deltaTtracer .NE. dTtracerLev(1) .AND. |
|
./model/src/ini_parms.F |
722 |
INI_PARMS |
& deltaTtracer .NE. 0. .AND. dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
727 |
INI_PARMS |
ELSEIF ( dTtracerLev(1) .NE. 0. ) THEN |
|
./model/src/ini_parms.F |
728 |
INI_PARMS |
deltaTtracer = dTtracerLev(1) |
|
./model/src/ini_parms.F |
736 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./model/inc/PARAMS.h |
574 |
NO PROCEDURE |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
|
./model/inc/PARAMS.h |
621 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./pkg/ggl90/ggl90_calc.F |
113 |
GGL90_CALC |
deltaTggl90 = dTtracerLev(1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
61 |
SHAP_FILT_READPARMS |
Shap_Trtau = dTtracerLev(1) |
|
./pkg/shap_filt/shap_filt_tracer_s2g.F |
134 |
SHAP_FILT_TRACER_S2G |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
181 |
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/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/generic_advdiff/gad_implicit_r.F |
135 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
145 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
206 |
GAD_IMPLICIT_R |
& + dTtracerLev(1)*recip_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
224 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
I dTtracerLev, rTrans, localTijk, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
237 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
194 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
202 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
210 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
214 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
289 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
297 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
305 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
309 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
387 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
394 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
401 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
404 |
GAD_CALC_RHS |
& bi,bj,k,dTtracerLev(k),rTrans,wVel,tracer,af,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
347 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
351 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
355 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
386 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
398 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
416 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
484 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
488 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
492 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
523 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
535 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
553 |
GAD_ADVECTION |
localTij(i,j)=localTij(i,j)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
593 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
692 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
696 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
700 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, dTtracerLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
720 |
GAD_ADVECTION |
localTij(i,j)=localTijk(i,j,k)-dTtracerLev(k)* |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k) |
|
./pkg/matrix/matrix_write_tendency.F |
37 |
MATRIX_WRITE_TENDENCY |
& (1. _d 0)/(expMatrixCounter*dTtracerLev(1)) |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./pkg/seaice/seaice_readparms.F |
190 |
SEAICE_READPARMS |
IF ( SEAICE_deltaTtherm .NE. dTtracerLev(1) .OR. |
|
./pkg/seaice/seaice_readparms.F |
82 |
SEAICE_READPARMS |
SEAICE_deltaTtherm = dTtracerLev(1) |
|
./pkg/seaice/seaice_readparms.F |
83 |
SEAICE_READPARMS |
SEAICE_deltaTdyn = dTtracerLev(1) |
|
./model/src/set_defaults.F |
222 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./pkg/monitor/monitor.F |
125 |
MONITOR |
dT=MAX(dTtracerLev(1),deltaTmom) |