| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I tracerIdentity, |
|
./pkg/kpp/kpp_transport_ptr.F |
52 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_ptr.F |
74 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPtr(i,j,bi,bj,tracerIdentity) |
|
./pkg/kpp/kpp_transport_ptr.F |
85 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPtr(i,j,bi,bj,tracerIdentity) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
215 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
279 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
41 |
GAD_IMPLICIT_R |
INTEGER tracerIdentity |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
138 |
GAD_CALC_RHS |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
15 |
GAD_CALC_RHS |
I tracerIdentity, advectionScheme, vertAdvecScheme, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
256 |
GAD_CALC_RHS |
I xA,Tracer,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
351 |
GAD_CALC_RHS |
I yA,Tracer,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
377 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
445 |
GAD_CALC_RHS |
I Tracer,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
475 |
GAD_CALC_RHS |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
479 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
484 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
487 |
GAD_CALC_RHS |
I tracerIdentity-GAD_TR1+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
491 |
GAD_CALC_RHS |
PRINT*,'invalid tracer indentity: ', tracerIdentity |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
520 |
GAD_CALC_RHS |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
93 |
GAD_CALC_RHS |
INTEGER tracerIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
14 |
GAD_ADVECTION |
I tracerIdentity, |
|
./pkg/generic_advdiff/gad_advection.F |
151 |
GAD_ADVECTION |
act0 = tracerIdentity - 1 |
|
./pkg/generic_advdiff/gad_advection.F |
165 |
GAD_ADVECTION |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/generic_advdiff/gad_advection.F |
166 |
GAD_ADVECTION |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
174 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
434 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
436 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
571 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
573 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
616 |
GAD_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_advection.F |
648 |
GAD_ADVECTION |
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
72 |
GAD_ADVECTION |
INTEGER tracerIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
43 |
GMREDI_XTRANSPORT |
integer tracerIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
62 |
GMREDI_XTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_xtransport.F |
77 |
GMREDI_XTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_xtransport.F |
78 |
GMREDI_XTRANSPORT |
print *, 'ph-pass gmredi_xtrans ', maxpass, tracerIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
8 |
GMREDI_XTRANSPORT |
I xA,Tracer,tracerIdentity, |
|
./pkg/gmredi/gmredi_rtransport.F |
42 |
GMREDI_RTRANSPORT |
INTEGER tracerIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
58 |
GMREDI_RTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_rtransport.F |
73 |
GMREDI_RTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_rtransport.F |
74 |
GMREDI_RTRANSPORT |
print *, 'ph-pass gmredi_rtrans ', maxpass, tracerIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
8 |
GMREDI_RTRANSPORT |
I Tracer,tracerIdentity, |
|
./pkg/gmredi/gmredi_ytransport.F |
43 |
GMREDI_YTRANSPORT |
integer tracerIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
62 |
GMREDI_YTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_ytransport.F |
77 |
GMREDI_YTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_ytransport.F |
78 |
GMREDI_YTRANSPORT |
print *, 'ph-pass gmredi_ytrans ', maxpass, tracerIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
8 |
GMREDI_YTRANSPORT |
I yA,Tracer,tracerIdentity, |