/[MITgcm]/MITgcm/pkg/shelfice/shelfice_v_drag.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_v_drag.F

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

revision 1.5 by mlosch, Fri Sep 1 10:17:17 2006 UTC revision 1.6 by mlosch, Wed Mar 14 15:43:43 2007 UTC
# Line 88  CML        IF (k.EQ.kTop) maskUp=0. Line 88  CML        IF (k.EQ.kTop) maskUp=0.
88         ENDDO         ENDDO
89        ENDDO        ENDDO
90    
91  CML#ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
92  CML      IF (useDiagnostics) THEN        IF (useDiagnostics) THEN
93  CML        CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)          CALL DIAGNOSTICS_FILL(vDragTerms,'VSHIDrag',k,1,2,bi,bj,myThid)
94  CML      ENDIF        ENDIF
95  CML#endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
96  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
97    
98        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22