| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
14 |
GAD_ADVECTION |
I tracerIdentity, deltaTLev, |
|
./pkg/generic_advdiff/gad_advection.F |
162 |
GAD_ADVECTION |
act0 = tracerIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
176 |
GAD_ADVECTION |
IF (tracerIdentity.GT.maxpass) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
177 |
GAD_ADVECTION |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
|
./pkg/generic_advdiff/gad_advection.F |
188 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
466 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
468 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
471 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.GE.GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
473 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
635 |
GAD_ADVECTION |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
637 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
640 |
GAD_ADVECTION |
ELSEIF (tracerIdentity.GE.GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
642 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
688 |
GAD_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
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_calc_rhs.F |
104 |
GAD_CALC_RHS |
INTEGER tracerIdentity |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
155 |
GAD_CALC_RHS |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
15 |
GAD_CALC_RHS |
I deltaTLev, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
295 |
GAD_CALC_RHS |
I xA,TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
301 |
GAD_CALC_RHS |
I xA,TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
410 |
GAD_CALC_RHS |
I yA,TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
416 |
GAD_CALC_RHS |
I yA,TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
532 |
GAD_CALC_RHS |
I TracerN,tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
538 |
GAD_CALC_RHS |
I TracAB, tracerIdentity, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
569 |
GAD_CALC_RHS |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
574 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
580 |
GAD_CALC_RHS |
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
583 |
GAD_CALC_RHS |
I tracerIdentity-GAD_TR1+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
589 |
GAD_CALC_RHS |
& 'tracer identity =', tracerIdentity, ' is not valid => STOP' |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
617 |
GAD_CALC_RHS |
IF (tracerIdentity.NE.GAD_TEMPERATURE .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
618 |
GAD_CALC_RHS |
& tracerIdentity.NE.GAD_SALINITY) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
709 |
GAD_CALC_RHS |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
220 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
298 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
42 |
GAD_IMPLICIT_R |
INTEGER tracerIdentity |
|
./pkg/generic_advdiff/gad_som_advect.F |
13 |
GAD_SOM_ADVECT |
I tracerIdentity, deltaTLev, |
|
./pkg/generic_advdiff/gad_som_advect.F |
166 |
GAD_SOM_ADVECT |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
468 |
GAD_SOM_ADVECT |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_som_advect.F |
53 |
GAD_SOM_ADVECT |
INTEGER tracerIdentity |
|
./pkg/gmredi/gmredi_calc_diff.F |
42 |
GMREDI_CALC_DIFF |
INTEGER tracerIdentity |
|
./pkg/gmredi/gmredi_calc_diff.F |
57 |
GMREDI_CALC_DIFF |
IF (tracerIdentity .LT. GAD_TR1) THEN |
|
./pkg/gmredi/gmredi_calc_diff.F |
74 |
GMREDI_CALC_DIFF |
IF (tracerIdentity .LT. GAD_TR1) THEN |
|
./pkg/gmredi/gmredi_calc_diff.F |
9 |
GMREDI_CALC_DIFF |
I tracerIdentity,myThid) |
|
./pkg/gmredi/gmredi_rtransport.F |
131 |
GMREDI_RTRANSPORT |
IF ( tracerIdentity .LT. GAD_TR1 ) THEN |
|
./pkg/gmredi/gmredi_rtransport.F |
46 |
GMREDI_RTRANSPORT |
INTEGER tracerIdentity |
|
./pkg/gmredi/gmredi_rtransport.F |
62 |
GMREDI_RTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_rtransport.F |
77 |
GMREDI_RTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_rtransport.F |
78 |
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 |
194 |
GMREDI_XTRANSPORT |
& .AND. tracerIdentity .EQ. 1) THEN |
|
./pkg/gmredi/gmredi_xtransport.F |
42 |
GMREDI_XTRANSPORT |
integer tracerIdentity |
|
./pkg/gmredi/gmredi_xtransport.F |
69 |
GMREDI_XTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_xtransport.F |
84 |
GMREDI_XTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_xtransport.F |
85 |
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 |
193 |
GMREDI_YTRANSPORT |
& .AND. tracerIdentity .EQ. 1) THEN |
|
./pkg/gmredi/gmredi_ytransport.F |
42 |
GMREDI_YTRANSPORT |
integer tracerIdentity |
|
./pkg/gmredi/gmredi_ytransport.F |
69 |
GMREDI_YTRANSPORT |
act0 = tracerIdentity - 1 |
|
./pkg/gmredi/gmredi_ytransport.F |
84 |
GMREDI_YTRANSPORT |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/gmredi/gmredi_ytransport.F |
85 |
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 |
110 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I tracerIdentity, |
|
./pkg/kpp/kpp_transport_ptr.F |
60 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_ptr.F |
83 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity) |
|
./pkg/seaice/seaice_advection.F |
144 |
SEAICE_ADVECTION |
act0 = tracerIdentity - 1 |
|
./pkg/seaice/seaice_advection.F |
158 |
SEAICE_ADVECTION |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/seaice/seaice_advection.F |
159 |
SEAICE_ADVECTION |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
|
./pkg/seaice/seaice_advection.F |
15 |
SEAICE_ADVECTION |
I tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
167 |
SEAICE_ADVECTION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/seaice/seaice_advection.F |
173 |
SEAICE_ADVECTION |
& .AND. ( tracerIdentity.EQ.GAD_HEFF .OR. |
|
./pkg/seaice/seaice_advection.F |
174 |
SEAICE_ADVECTION |
& tracerIdentity.EQ.GAD_QICE2 ) |
|
./pkg/seaice/seaice_advection.F |
295 |
SEAICE_ADVECTION |
IF (dBug.AND.bi.EQ.3 ) WRITE(6,*) 'ICE_adv:',tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
725 |
SEAICE_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_HEFF |
|
./pkg/seaice/seaice_advection.F |
78 |
SEAICE_ADVECTION |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_diffusion.F |
10 |
SEAICE_DIFFUSION |
I tracerIdentity, |
|
./pkg/seaice/seaice_diffusion.F |
47 |
SEAICE_DIFFUSION |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_diffusion.F |
70 |
SEAICE_DIFFUSION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/thsice/thsice_advection.F |
15 |
THSICE_ADVECTION |
I tracerIdentity, |
|
./pkg/thsice/thsice_advection.F |
163 |
THSICE_ADVECTION |
& .AND. ( tracerIdentity.EQ.GAD_SI_HICE .OR. |
|
./pkg/thsice/thsice_advection.F |
164 |
THSICE_ADVECTION |
& tracerIdentity.EQ.GAD_SI_QICE2 ) |
|
./pkg/thsice/thsice_advection.F |
275 |
THSICE_ADVECTION |
& 'ICE_adv:', tracerIdentity, ipass, bi, idb, jdb, |
|
./pkg/thsice/thsice_advection.F |
726 |
THSICE_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_SI_HICE |
|
./pkg/thsice/thsice_advection.F |
79 |
THSICE_ADVECTION |
INTEGER tracerIdentity |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
218 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
296 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
41 |
GAD_IMPLICIT_R |
INTEGER tracerIdentity |