22 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
23 |
#include "PARAMS.h" |
#include "PARAMS.h" |
24 |
#include "GMREDI.h" |
#include "GMREDI.h" |
25 |
#include "GMREDI_DIAGS.h" |
#include "GMREDI_TAVE.h" |
26 |
|
|
27 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
28 |
#include "tamc.h" |
#include "tamc.h" |
534 |
ENDIF |
ENDIF |
535 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |
536 |
|
|
537 |
|
#ifdef ALLOW_DIAGNOSTICS |
538 |
|
IF ( useDiagnostics ) THEN |
539 |
|
|
540 |
|
#ifdef GM_VISBECK_VARIABLE_K |
541 |
|
IF ( GM_Visbeck_alpha.NE.0. ) THEN |
542 |
|
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
543 |
|
ENDIF |
544 |
|
#endif |
545 |
|
#ifdef GM_NON_UNITY_DIAGONAL |
546 |
|
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
547 |
|
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
548 |
|
#endif |
549 |
|
#ifdef GM_EXTRA_DIAGONAL |
550 |
|
IF ( GM_ExtraDiag ) THEN |
551 |
|
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
552 |
|
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
553 |
|
ENDIF |
554 |
|
#endif |
555 |
|
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
556 |
|
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
557 |
|
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
558 |
|
#ifdef GM_BOLUS_ADVEC |
559 |
|
IF ( GM_AdvForm ) THEN |
560 |
|
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
561 |
|
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
562 |
|
ENDIF |
563 |
|
#endif |
564 |
|
ENDIF |
565 |
|
#endif /* ALLOW_DIAGNOSTICS */ |
566 |
|
|
567 |
#endif /* ALLOW_GMREDI */ |
#endif /* ALLOW_GMREDI */ |
568 |
|
|
569 |
RETURN |
RETURN |