536 |
|
|
537 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
538 |
IF ( useDiagnostics ) THEN |
IF ( useDiagnostics ) THEN |
539 |
|
CALL GMREDI_DIAGNOSTICS_DRIVER(bi,bj,myThid) |
|
#ifdef GM_VISBECK_VARIABLE_K |
|
|
IF ( GM_Visbeck_alpha.NE.0. ) THEN |
|
|
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
#ifdef GM_NON_UNITY_DIAGONAL |
|
|
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
|
|
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
|
|
#endif |
|
|
#ifdef GM_EXTRA_DIAGONAL |
|
|
IF ( GM_ExtraDiag ) THEN |
|
|
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
|
|
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
|
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
|
|
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
|
#ifdef GM_BOLUS_ADVEC |
|
|
IF ( GM_AdvForm ) THEN |
|
|
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
|
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
|
ENDIF |
|
|
#endif |
|
540 |
ENDIF |
ENDIF |
541 |
#endif /* ALLOW_DIAGNOSTICS */ |
#endif /* ALLOW_DIAGNOSTICS */ |
542 |
|
|