/[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.20 by jmc, Tue Jan 4 00:19:38 2005 UTC revision 1.21 by heimbach, Wed Oct 26 20:53:14 2005 UTC
# Line 536  C--   Time-average Line 536  C--   Time-average
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    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22