| File |
Line number |
Procedure |
Code |
|
./model/src/calc_3d_diffusivity.F |
110 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./model/src/calc_3d_diffusivity.F |
124 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.EQ.GAD_SALINITY) THEN |
|
./model/src/calc_3d_diffusivity.F |
12 |
CALC_3D_DIFFUSIVITY |
I trIdentity, trUseGMRedi, trUseKPP, |
|
./model/src/calc_3d_diffusivity.F |
139 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
141 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
158 |
CALC_3D_DIFFUSIVITY |
& ' CALC_3D_DIFFUSIVITY: Invalid tracer Id: ',trIdentity |
|
./model/src/calc_3d_diffusivity.F |
169 |
CALC_3D_DIFFUSIVITY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./model/src/calc_3d_diffusivity.F |
174 |
CALC_3D_DIFFUSIVITY |
ELSEIF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./model/src/calc_3d_diffusivity.F |
179 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
187 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
188 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
207 |
CALC_3D_DIFFUSIVITY |
I trIdentity,myThid) |
|
./model/src/calc_3d_diffusivity.F |
56 |
CALC_3D_DIFFUSIVITY |
INTEGER trIdentity |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity .GE. GAD_TR1) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
115 |
PTRACERS_CALC_DIFF |
I trIdentity,myThid) |
|
./pkg/ptracers/ptracers_calc_diff.F |
58 |
PTRACERS_CALC_DIFF |
INTEGER i,j,iTr,trIdentity |
|
./pkg/ptracers/ptracers_calc_diff.F |
75 |
PTRACERS_CALC_DIFF |
trIdentity = iTr + GAD_TR1 - 1 |
|
./pkg/down_slope/dwnslp_apply.F |
104 |
DWNSLP_APPLY |
IF ( trIdentity.GE.1 ) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
107 |
DWNSLP_APPLY |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
10 |
DWNSLP_APPLY |
I trIdentity, bi, bj, kBottom, |
|
./pkg/down_slope/dwnslp_apply.F |
130 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
|
./pkg/down_slope/dwnslp_apply.F |
50 |
DWNSLP_APPLY |
INTEGER trIdentity |
|
./pkg/down_slope/dwnslp_apply.F |
92 |
DWNSLP_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) onOffFlag = temp_useDWNSLP |
|
./pkg/down_slope/dwnslp_apply.F |
93 |
DWNSLP_APPLY |
IF ( trIdentity.EQ.GAD_SALINITY ) onOffFlag = salt_useDWNSLP |