| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
197 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
277 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
322 |
GAD_IMPLICIT_R |
IF ( (tracerIdentity.EQ.1).OR.(tracerIdentity.EQ.2) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
323 |
GAD_IMPLICIT_R |
CALL LAYERS_FILL_DFR( df, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
44 |
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 |
160 |
GAD_SOM_ADVECT |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
432 |
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 |
76 |
GMREDI_CALC_DIFF |
IF (tracerIdentity .LT. GAD_TR1) THEN |
|
./pkg/gmredi/gmredi_calc_diff.F |
9 |
GMREDI_CALC_DIFF |
I tracerIdentity,myThid) |
|
./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 |
151 |
SEAICE_ADVECTION |
act0 = tracerIdentity - 1 |
|
./pkg/seaice/seaice_advection.F |
15 |
SEAICE_ADVECTION |
I tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
165 |
SEAICE_ADVECTION |
if (tracerIdentity.GT.maxpass) then |
|
./pkg/seaice/seaice_advection.F |
168 |
SEAICE_ADVECTION |
& maxpass, tracerIdentity |
|
./pkg/seaice/seaice_advection.F |
177 |
SEAICE_ADVECTION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/seaice/seaice_advection.F |
184 |
SEAICE_ADVECTION |
& .AND. ( tracerIdentity.EQ.GAD_HEFF .OR. |
|
./pkg/seaice/seaice_advection.F |
185 |
SEAICE_ADVECTION |
& tracerIdentity.EQ.GAD_QICE2 ) |
|
./pkg/seaice/seaice_advection.F |
318 |
SEAICE_ADVECTION |
IF (dBug.AND.bi.EQ.3 ) WRITE(ioUnit,*)'ICE_adv:',tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
754 |
SEAICE_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_HEFF |
|
./pkg/seaice/seaice_advection.F |
82 |
SEAICE_ADVECTION |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_diffusion.F |
10 |
SEAICE_DIFFUSION |
I tracerIdentity, |
|
./pkg/seaice/seaice_diffusion.F |
50 |
SEAICE_DIFFUSION |
INTEGER tracerIdentity |
|
./pkg/seaice/seaice_diffusion.F |
73 |
SEAICE_DIFFUSION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
|
./pkg/thsice/thsice_advection.F |
15 |
THSICE_ADVECTION |
I tracerIdentity, |
|
./pkg/thsice/thsice_advection.F |
169 |
THSICE_ADVECTION |
& .AND. ( tracerIdentity.EQ.GAD_SI_HICE .OR. |
|
./pkg/thsice/thsice_advection.F |
170 |
THSICE_ADVECTION |
& tracerIdentity.EQ.GAD_SI_QICE2 ) |
|
./pkg/thsice/thsice_advection.F |
299 |
THSICE_ADVECTION |
& 'ICE_adv:', tracerIdentity, ipass, bi, idb, jdb, |
|
./pkg/thsice/thsice_advection.F |
762 |
THSICE_ADVECTION |
& .AND. tracerIdentity.EQ.GAD_SI_HICE |
|
./pkg/thsice/thsice_advection.F |
80 |
THSICE_ADVECTION |
INTEGER tracerIdentity |