| File |
Line number |
Procedure |
Code |
|
./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_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_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, |
|
./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_advection.F |
14 |
GAD_ADVECTION |
I tracerIdentity, |
|
./pkg/generic_advdiff/gad_advection.F |
159 |
GAD_ADVECTION |
act0 = tracerIdentity - 1 |
|
./pkg/generic_advdiff/gad_advection.F |
173 |
GAD_ADVECTION |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/generic_advdiff/gad_advection.F |
174 |
GAD_ADVECTION |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
182 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
462 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
464 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
467 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.GE.GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
469 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
626 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
628 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
631 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.GE.GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
633 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
676 |
GAD_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_advection.F |
708 |
GAD_ADVECTION |
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
72 |
GAD_ADVECTION |
INTEGER tracerIdentity |
|
./pkg/generic_advdiff/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
218 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
296 |
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 |
146 |
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 |
280 |
GAD_CALC_RHS |
I xA,TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
286 |
GAD_CALC_RHS |
I xA,TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
388 |
GAD_CALC_RHS |
I yA,TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
394 |
GAD_CALC_RHS |
I yA,TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
421 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
I TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
509 |
GAD_CALC_RHS |
I TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
540 |
GAD_CALC_RHS |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
544 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
549 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
552 |
GAD_CALC_RHS |
I tracerIdentity-GAD_TR1+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
556 |
GAD_CALC_RHS |
PRINT*,'invalid tracer indentity: ', tracerIdentity |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
585 |
GAD_CALC_RHS |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
99 |
GAD_CALC_RHS |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_calc_rhs.F |
41 |
SEAICE_CALC_RHS |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_calc_rhs.F |
67 |
SEAICE_CALC_RHS |
I advScheme, tracerIdentity, |
|
./pkg/seaice/seaice_calc_rhs.F |
9 |
SEAICE_CALC_RHS |
I advScheme, tracerIdentity, bi, bj, |
|
./pkg/seaice/seaice_advection.F |
13 |
SEAICE_ADVECTION |
I tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
141 |
SEAICE_ADVECTION |
act0 = tracerIdentity - 1 |
|
./pkg/seaice/seaice_advection.F |
155 |
SEAICE_ADVECTION |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/seaice/seaice_advection.F |
156 |
SEAICE_ADVECTION |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
|
./pkg/seaice/seaice_advection.F |
633 |
SEAICE_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_HEFF |
|
./pkg/seaice/seaice_advection.F |
68 |
SEAICE_ADVECTION |
INTEGER tracerIdentity |