112 |
C df :: diffusive flux |
C df :: diffusive flux |
113 |
C localT :: local copy of tracer field |
C localT :: local copy of tracer field |
114 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
|
INTEGER kk |
|
115 |
CHARACTER*8 diagName |
CHARACTER*8 diagName |
116 |
CHARACTER*4 GAD_DIAG_SUFX, diagSufx |
CHARACTER*4 GAD_DIAG_SUFX, diagSufx |
117 |
EXTERNAL GAD_DIAG_SUFX |
EXTERNAL GAD_DIAG_SUFX |
217 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
218 |
IF ( useDiagnostics ) THEN |
IF ( useDiagnostics ) THEN |
219 |
diagName = 'ADVx'//diagSufx |
diagName = 'ADVx'//diagSufx |
220 |
kk = -k |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(af,diagName, kk,1, 2,bi,bj, myThid) |
|
221 |
ENDIF |
ENDIF |
222 |
#endif |
#endif |
223 |
ENDIF |
ENDIF |
261 |
IF ( useDiagnostics .AND. |
IF ( useDiagnostics .AND. |
262 |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
263 |
diagName = 'DIFx'//diagSufx |
diagName = 'DIFx'//diagSufx |
264 |
kk = -k |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid) |
|
265 |
ENDIF |
ENDIF |
266 |
#endif |
#endif |
267 |
|
|
303 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
304 |
IF ( useDiagnostics ) THEN |
IF ( useDiagnostics ) THEN |
305 |
diagName = 'ADVy'//diagSufx |
diagName = 'ADVy'//diagSufx |
306 |
kk = -k |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(af,diagName, kk,1, 2,bi,bj, myThid) |
|
307 |
ENDIF |
ENDIF |
308 |
#endif |
#endif |
309 |
ENDIF |
ENDIF |
347 |
IF ( useDiagnostics .AND. |
IF ( useDiagnostics .AND. |
348 |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN |
349 |
diagName = 'DIFy'//diagSufx |
diagName = 'DIFy'//diagSufx |
350 |
kk = -k |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid) |
|
351 |
ENDIF |
ENDIF |
352 |
#endif |
#endif |
353 |
|
|
389 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
390 |
IF ( useDiagnostics ) THEN |
IF ( useDiagnostics ) THEN |
391 |
diagName = 'ADVr'//diagSufx |
diagName = 'ADVr'//diagSufx |
392 |
kk = -k |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(af,diagName, kk,1, 2,bi,bj, myThid) |
|
393 |
ENDIF |
ENDIF |
394 |
#endif |
#endif |
395 |
ENDIF |
ENDIF |
431 |
IF ( useDiagnostics .AND. |
IF ( useDiagnostics .AND. |
432 |
& (.NOT.implicitDiffusion .OR. useGMRedi) ) THEN |
& (.NOT.implicitDiffusion .OR. useGMRedi) ) THEN |
433 |
diagName = 'DFrE'//diagSufx |
diagName = 'DFrE'//diagSufx |
434 |
kk = -k |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid) |
|
435 |
ENDIF |
ENDIF |
436 |
#endif |
#endif |
437 |
|
|