| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
16 |
GAD_ADVECTION |
I trIdentity, deltaTLev, |
|
./pkg/generic_advdiff/gad_advection.F |
170 |
GAD_ADVECTION |
act0 = trIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
184 |
GAD_ADVECTION |
IF (trIdentity.GT.maxpass) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
187 |
GAD_ADVECTION |
& maxpass, trIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
199 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
626 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
74 |
GAD_ADVECTION |
INTEGER trIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_advection.F |
823 |
GAD_ADVECTION |
& (useAIM .AND. trIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
106 |
GAD_CALC_RHS |
INTEGER trIdentity |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
15 |
GAD_CALC_RHS |
I deltaTLev, trIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
164 |
GAD_CALC_RHS |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
273 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
312 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFX( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
406 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
445 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFY( df, trIdentity,k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
478 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR. trIdentity.NE.GAD_SALINITY .OR. k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
608 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
630 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
644 |
GAD_CALC_RHS |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
649 |
GAD_CALC_RHS |
ELSEIF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
655 |
GAD_CALC_RHS |
ELSEIF (trIdentity .GE. GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
658 |
GAD_CALC_RHS |
I trIdentity-GAD_TR1+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
664 |
GAD_CALC_RHS |
& 'tracer identity =', trIdentity, ' is not valid => STOP' |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
683 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
IF ( trIdentity.NE.GAD_TEMPERATURE .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
698 |
GAD_CALC_RHS |
& trIdentity.NE.GAD_SALINITY ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
786 |
GAD_CALC_RHS |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/gmredi/gmredi_rtransport.F |
129 |
GMREDI_RTRANSPORT |
IF ( trIdentity .GE. GAD_TR1 ) THEN |
|
./pkg/gmredi/gmredi_rtransport.F |
43 |
GMREDI_RTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
61 |
GMREDI_RTRANSPORT |
act0 = trIdentity - 1 |
|
./pkg/gmredi/gmredi_rtransport.F |
76 |
GMREDI_RTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_rtransport.F |
77 |
GMREDI_RTRANSPORT |
print *, 'ph-pass gmredi_rtrans ', maxpass, trIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
7 |
GMREDI_RTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
10 |
GMREDI_XTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
200 |
GMREDI_XTRANSPORT |
& .AND. trIdentity.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_xtransport.F |
46 |
GMREDI_XTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
76 |
GMREDI_XTRANSPORT |
act0 = trIdentity - 1 |
|
./pkg/gmredi/gmredi_xtransport.F |
91 |
GMREDI_XTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_xtransport.F |
92 |
GMREDI_XTRANSPORT |
print *, 'ph-pass gmredi_xtrans ', maxpass, trIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
10 |
GMREDI_YTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_ytransport.F |
199 |
GMREDI_YTRANSPORT |
& .AND. trIdentity.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_ytransport.F |
46 |
GMREDI_YTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
76 |
GMREDI_YTRANSPORT |
act0 = trIdentity - 1 |
|
./pkg/gmredi/gmredi_ytransport.F |
91 |
GMREDI_YTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_ytransport.F |
92 |
GMREDI_YTRANSPORT |
print *, 'ph-pass gmredi_ytrans ', maxpass, trIdentity |
|
./model/src/calc_3d_diffusivity.F |
110 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./model/src/calc_3d_diffusivity.F |
123 |
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 |
137 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
139 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
155 |
CALC_3D_DIFFUSIVITY |
& ' CALC_3D_DIFFUSIVITY: Invalid tracer Id: ',trIdentity |
|
./model/src/calc_3d_diffusivity.F |
166 |
CALC_3D_DIFFUSIVITY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./model/src/calc_3d_diffusivity.F |
171 |
CALC_3D_DIFFUSIVITY |
ELSEIF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./model/src/calc_3d_diffusivity.F |
177 |
CALC_3D_DIFFUSIVITY |
ELSEIF ( trIdentity.GE.GAD_TR1) THEN |
|
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
186 |
CALC_3D_DIFFUSIVITY |
& ' CALC_3D_DIFFUSIVITY: Invalid tracer Id: ',trIdentity |
|
./model/src/calc_3d_diffusivity.F |
198 |
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/layers/layers_save.F |
102 |
LAYERS_FILL_SURFACE_FLUX |
layers_surfflux(i,j,1,trIdentity,bi,bj) = |
|
./pkg/layers/layers_save.F |
103 |
LAYERS_FILL_SURFACE_FLUX |
& layers_surfflux(i,j,1,trIdentity,bi,bj) + |
|
./pkg/layers/layers_save.F |
126 |
LAYERS_FILL_DFX |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
142 |
LAYERS_FILL_DFX |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
155 |
LAYERS_FILL_DFX |
IF ((trIdentity.EQ.1).OR.(trIdentity.EQ.2)) THEN |
|
./pkg/layers/layers_save.F |
160 |
LAYERS_FILL_DFX |
& .AND. ((trIdentity.EQ.1) .OR. (trIdentity.EQ.2)) ) THEN |
|
./pkg/layers/layers_save.F |
163 |
LAYERS_FILL_DFX |
layers_dfx(i,j,kLev,trIdentity,biArg,bjArg) = |
|
./pkg/layers/layers_save.F |
164 |
LAYERS_FILL_DFX |
& layers_dfx(i,j,kLev,trIdentity,biArg,bjArg) + |
|
./pkg/layers/layers_save.F |
17 |
LAYERS_FILL_SURFACE_FLUX |
I surfflux, trIdentity, |
|
./pkg/layers/layers_save.F |
183 |
LAYERS_FILL_DFY |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
199 |
LAYERS_FILL_DFY |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
212 |
LAYERS_FILL_DFY |
IF ((trIdentity.EQ.1).OR.(trIdentity.EQ.2)) THEN |
|
./pkg/layers/layers_save.F |
217 |
LAYERS_FILL_DFY |
& .AND. ((trIdentity.EQ.1) .OR. (trIdentity.EQ.2)) ) THEN |
|
./pkg/layers/layers_save.F |
220 |
LAYERS_FILL_DFY |
layers_dfy(i,j,kLev,trIdentity,biArg,bjArg) = |
|
./pkg/layers/layers_save.F |
221 |
LAYERS_FILL_DFY |
& layers_dfy(i,j,kLev,trIdentity,biArg,bjArg) + |
|
./pkg/layers/layers_save.F |
242 |
LAYERS_FILL_DFR |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
258 |
LAYERS_FILL_DFR |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
271 |
LAYERS_FILL_DFR |
IF ((trIdentity.EQ.1).OR.(trIdentity.EQ.2)) THEN |
|
./pkg/layers/layers_save.F |
276 |
LAYERS_FILL_DFR |
& .AND. ((trIdentity.EQ.1) .OR. (trIdentity.EQ.2)) ) THEN |
|
./pkg/layers/layers_save.F |
279 |
LAYERS_FILL_DFR |
layers_dfr(i,j,kLev,trIdentity,biArg,bjArg) = |
|
./pkg/layers/layers_save.F |
280 |
LAYERS_FILL_DFR |
& layers_dfr(i,j,kLev,trIdentity,biArg,bjArg) + |
|
./pkg/layers/layers_save.F |
68 |
LAYERS_FILL_SURFACE_FLUX |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
89 |
LAYERS_FILL_SURFACE_FLUX |
IF ((trIdentity.EQ.1).OR.(trIdentity.EQ.2)) THEN |
|
./pkg/layers/layers_save.F |
92 |
LAYERS_FILL_SURFACE_FLUX |
& .AND. ((trIdentity.EQ.1) .OR. (trIdentity.EQ.2)) ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
12 |
OBCS_U1_ADV_TRACER |
I trIdentity, bi, bj, k, |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
50 |
OBCS_U1_ADV_TRACER |
INTEGER trIdentity |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
73 |
OBCS_U1_ADV_TRACER |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
75 |
OBCS_U1_ADV_TRACER |
ELSEIF ( trIdentity.EQ.GAD_SALINITY) 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/obcs/obcs_u1_adv_tracer.F |
84 |
OBCS_U1_ADV_TRACER |
& ' OBCS_U1_ADV_TRACER: Invalid tracer Id: ',trIdentity |
|
./pkg/salt_plume/salt_plume_apply.F |
108 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) onOffFlag = .TRUE. |
|
./pkg/salt_plume/salt_plume_apply.F |
109 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_SALINITY ) onOffFlag = .TRUE. |
|
./pkg/salt_plume/salt_plume_apply.F |
10 |
SALT_PLUME_APPLY |
I trIdentity, bi, bj, |
|
./pkg/salt_plume/salt_plume_apply.F |
118 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
126 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_SALINITY ) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
141 |
SALT_PLUME_APPLY |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/salt_plume/salt_plume_apply.F |
172 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
181 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
196 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
224 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
227 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
249 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_TEMPERATURE) |
|
./pkg/salt_plume/salt_plume_apply.F |
251 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
52 |
SALT_PLUME_APPLY |
INTEGER trIdentity, trApplyFlag |
|
./pkg/down_slope/dwnslp_apply.F |
107 |
DWNSLP_APPLY |
IF ( trIdentity.GE.1 ) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
10 |
DWNSLP_APPLY |
I trIdentity, bi, bj, kBottom, |
|
./pkg/down_slope/dwnslp_apply.F |
110 |
DWNSLP_APPLY |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
132 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
|
./pkg/down_slope/dwnslp_apply.F |
51 |
DWNSLP_APPLY |
INTEGER trIdentity |
|
./pkg/down_slope/dwnslp_apply.F |
95 |
DWNSLP_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) onOffFlag = temp_useDWNSLP |
|
./pkg/down_slope/dwnslp_apply.F |
96 |
DWNSLP_APPLY |
IF ( trIdentity.EQ.GAD_SALINITY ) onOffFlag = salt_useDWNSLP |