| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/GAD.h |
126 |
NO PROCEDURE |
INTEGER GAD_TR1 |
|
./pkg/generic_advdiff/GAD.h |
127 |
NO PROCEDURE |
PARAMETER(GAD_TR1=3) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
675 |
GAD_CALC_RHS |
ELSEIF (trIdentity .GE. GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
678 |
GAD_CALC_RHS |
I trIdentity-GAD_TR1+1, |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
364 |
GAD_DIAGNOSTICS_INIT |
ELSEIF( tracerId.GE.GAD_TR1 |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
365 |
GAD_DIAGNOSTICS_INIT |
& .AND. tracerId.LT.GAD_TR1+PTRACERS_num ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
368 |
GAD_DIAGNOSTICS_INIT |
GAD_DIAG_SUFX = 'Tr'//PTRACERS_ioLabel( tracerId+1-GAD_TR1 ) |
|
./pkg/gmredi/gmredi_calc_diff.F |
57 |
GMREDI_CALC_DIFF |
IF (tracerIdentity .LT. GAD_TR1) THEN |
|
./pkg/gmredi/gmredi_calc_diff.F |
76 |
GMREDI_CALC_DIFF |
IF (tracerIdentity .LT. GAD_TR1) THEN |
|
./pkg/gmredi/gmredi_rtransport.F |
143 |
GMREDI_RTRANSPORT |
IF ( trIdentity .GE. GAD_TR1 ) THEN |
|
./model/src/calc_3d_diffusivity.F |
142 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
144 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
182 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
183 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
94 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity .GE. GAD_TR1) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
78 |
OBCS_U1_ADV_TRACER |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
79 |
OBCS_U1_ADV_TRACER |
iTr = trIdentity - GAD_TR1 + 1 |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
130 |
PTRACERS_DIAGNOSTICS_INIT |
tracerId = iTrc + GAD_TR1 - 1 |
|
./pkg/ptracers/ptracers_integrate.F |
151 |
PTRACERS_INTEGRATE |
GAD_TR = GAD_TR1 + iTracer - 1 |
|
./model/src/impldiff.F |
91 |
IMPLDIFF |
IF ( tracerId.GE.GAD_TR1) THEN |