/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vi_hdissip.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_hdissip.F

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

revision 1.6 by adcroft, Wed May 26 14:50:10 2004 UTC revision 1.7 by molod, Mon Jul 19 19:10:14 2004 UTC
# Line 193  C and should be less than 1/8, for examp Line 193  C and should be less than 1/8, for examp
193         ENDDO         ENDDO
194        ENDDO        ENDDO
195    
196    #ifdef ALLOW_DIAGNOSTICS
197          if (useDiagnostics) then
198           call fill_diagnostics(myThid,'VISCA4  ',k,1,3,bi,bj,viscA4_D)
199          endif
200    #endif
201    
202        RETURN        RETURN
203        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22