/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_tensor.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.19 by jmc, Sun Nov 21 15:55:38 2004 UTC revision 1.20 by jmc, Tue Jan 4 00:19:38 2005 UTC
# Line 22  C     == Global variables == Line 22  C     == Global variables ==
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"
# Line 534  C--   Time-average Line 534  C--   Time-average
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
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22