| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
1060 |
GAD_ADVECTION |
CALL LAYERS_FILL( fVerT(1-OLx,1-OLy,kUp), trIdentity, |
|
./pkg/generic_advdiff/gad_advection.F |
16 |
GAD_ADVECTION |
I trIdentity, deltaTLev, |
|
./pkg/generic_advdiff/gad_advection.F |
174 |
GAD_ADVECTION |
act0 = trIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
188 |
GAD_ADVECTION |
IF (trIdentity.GT.maxpass) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
191 |
GAD_ADVECTION |
& maxpass, trIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
203 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
445 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
654 |
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 |
813 |
GAD_ADVECTION |
CALL LAYERS_FILL(afx,trIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
814 |
GAD_ADVECTION |
CALL LAYERS_FILL(afy,trIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
821 |
GAD_ADVECTION |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_advection.F |
918 |
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 |
291 |
GAD_CALC_RHS |
CALL LAYERS_FILL( af, trIdentity, 'AFX', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
318 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax+1, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
340 |
GAD_CALC_RHS |
CALL LAYERS_FILL( df, trIdentity, 'DFX', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
413 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
431 |
GAD_CALC_RHS |
CALL LAYERS_FILL( af, trIdentity, 'AFY', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
480 |
GAD_CALC_RHS |
CALL LAYERS_FILL( df, trIdentity, 'DFY', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
492 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR. trIdentity.NE.GAD_SALINITY .OR. k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
599 |
GAD_CALC_RHS |
CALL LAYERS_FILL(af,trIdentity,'AFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
650 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
664 |
GAD_CALC_RHS |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
669 |
GAD_CALC_RHS |
ELSEIF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./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_calc_rhs.F |
684 |
GAD_CALC_RHS |
& 'tracer identity =', trIdentity, ' is not valid => STOP' |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
703 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
717 |
GAD_CALC_RHS |
IF ( trIdentity.NE.GAD_TEMPERATURE .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
718 |
GAD_CALC_RHS |
& trIdentity.NE.GAD_SALINITY ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
791 |
GAD_CALC_RHS |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/gmredi/gmredi_rtransport.F |
12 |
GMREDI_RTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_rtransport.F |
143 |
GMREDI_RTRANSPORT |
IF ( trIdentity .GE. GAD_TR1 ) THEN |
|
./pkg/gmredi/gmredi_rtransport.F |
56 |
GMREDI_RTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
75 |
GMREDI_RTRANSPORT |
act0 = trIdentity - 1 |
|
./pkg/gmredi/gmredi_rtransport.F |
90 |
GMREDI_RTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_rtransport.F |
91 |
GMREDI_RTRANSPORT |
print *, 'ph-pass gmredi_rtrans ', maxpass, trIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
106 |
GMREDI_XTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_xtransport.F |
107 |
GMREDI_XTRANSPORT |
print *, 'ph-pass gmredi_xtrans ', maxpass, trIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
16 |
GMREDI_XTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
215 |
GMREDI_XTRANSPORT |
& .AND. trIdentity.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_xtransport.F |
60 |
GMREDI_XTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
91 |
GMREDI_XTRANSPORT |
act0 = trIdentity - 1 |
|
./pkg/gmredi/gmredi_ytransport.F |
105 |
GMREDI_YTRANSPORT |
if (trIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_ytransport.F |
106 |
GMREDI_YTRANSPORT |
print *, 'ph-pass gmredi_ytrans ', maxpass, trIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
15 |
GMREDI_YTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_ytransport.F |
213 |
GMREDI_YTRANSPORT |
& .AND. trIdentity.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_ytransport.F |
59 |
GMREDI_YTRANSPORT |
INTEGER trIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
90 |
GMREDI_YTRANSPORT |
act0 = trIdentity - 1 |
|
./model/src/calc_3d_diffusivity.F |
115 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./model/src/calc_3d_diffusivity.F |
128 |
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 |
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 |
160 |
CALC_3D_DIFFUSIVITY |
& ' CALC_3D_DIFFUSIVITY: Invalid tracer Id: ',trIdentity |
|
./model/src/calc_3d_diffusivity.F |
171 |
CALC_3D_DIFFUSIVITY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./model/src/calc_3d_diffusivity.F |
176 |
CALC_3D_DIFFUSIVITY |
ELSEIF (trIdentity.EQ.GAD_SALINITY) THEN |
|
./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 |
191 |
CALC_3D_DIFFUSIVITY |
& ' CALC_3D_DIFFUSIVITY: Invalid tracer Id: ',trIdentity |
|
./model/src/calc_3d_diffusivity.F |
203 |
CALC_3D_DIFFUSIVITY |
I trIdentity,myThid) |
|
./model/src/calc_3d_diffusivity.F |
56 |
CALC_3D_DIFFUSIVITY |
INTEGER trIdentity |
|
./model/src/calc_3d_diffusivity.F |
94 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity .GE. GAD_TR1) THEN |
|
./pkg/layers/layers_save.F |
122 |
LAYERS_FILL_FIELD |
I df, trIdentity, myNr, |
|
./pkg/layers/layers_save.F |
135 |
LAYERS_FILL_FIELD |
INTEGER trIdentity, myNr, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
14 |
LAYERS_FILL |
I df, trIdentity, fluxid, |
|
./pkg/layers/layers_save.F |
223 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,bi,bj), |
|
./pkg/layers/layers_save.F |
237 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,biArg,bjArg), |
|
./pkg/layers/layers_save.F |
56 |
LAYERS_FILL |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
67 |
LAYERS_FILL |
IF ((trIdentity.EQ.1).OR.(trIdentity.EQ.2)) THEN |
|
./pkg/layers/layers_save.F |
70 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, 1, layers_surfflux,'M', |
|
./pkg/layers/layers_save.F |
73 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfx,'U', |
|
./pkg/layers/layers_save.F |
76 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfy,'V', |
|
./pkg/layers/layers_save.F |
79 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfr,'M', |
|
./pkg/layers/layers_save.F |
82 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afx,'U', |
|
./pkg/layers/layers_save.F |
85 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afy,'V', |
|
./pkg/layers/layers_save.F |
88 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afr,'M', |
|
./pkg/layers/layers_save.F |
91 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_tottend,'M', |
|
./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 |