| File |
Line number |
Procedure |
Code |
|
./model/src/impldiff.F |
11 |
IMPLDIFF |
I tracerId, KappaRX, recip_hFac, |
|
./model/src/impldiff.F |
214 |
IMPLDIFF |
IF ( useDiagnostics .AND.tracerId.GE.1 ) THEN |
|
./model/src/impldiff.F |
217 |
IMPLDIFF |
diagSufx = GAD_DIAG_SUFX( tracerId, myThid ) |
|
./model/src/impldiff.F |
43 |
IMPLDIFF |
INTEGER tracerId |
|
./model/src/impldiff.F |
77 |
IMPLDIFF |
IF ( tracerId.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
123 |
PTRACERS_DIAGNOSTICS_INIT |
tracerId = iTrc + GAD_TR1 - 1 |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
124 |
PTRACERS_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( tracerId, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
41 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, tracerId |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
168 |
GAD_DIAGNOSTICS_INIT |
CHARACTER*4 FUNCTION GAD_DIAG_SUFX( tracerId, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
185 |
GAD_DIAGNOSTICS_INIT |
INTEGER tracerId |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
192 |
GAD_DIAGNOSTICS_INIT |
IF ( tracerId.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
194 |
GAD_DIAGNOSTICS_INIT |
ELSEIF( tracerId.EQ.GAD_SALINITY ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
196 |
GAD_DIAGNOSTICS_INIT |
ELSEIF( tracerId.GE.GAD_TR1 |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
197 |
GAD_DIAGNOSTICS_INIT |
& .AND. tracerId.LT.100 ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
198 |
GAD_DIAGNOSTICS_INIT |
WRITE(GAD_DIAG_SUFX,'(A,I2.2)') 'Tr',tracerId + 1-GAD_TR1 |