/[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.1 by mlosch, Tue Feb 7 11:45:21 2006 UTC revision 1.2 by mlosch, Mon Feb 13 12:49:21 2006 UTC
# Line 47  C !OUTPUT PARAMETERS: ================== Line 47  C !OUTPUT PARAMETERS: ==================
47  C  vDragTerms           :: drag term  C  vDragTerms           :: drag term
48        _RL vDragTerms(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL vDragTerms(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
49    
50  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES : ====================================================
51  C  i,j                  :: loop indices  C  i,j                  :: loop indices
52  C  Kp1                  :: =k+1 for k<Nr, =Nr for k>=Nr  C  Kp1                  :: =k+1 for k<Nr, =Nr for k>=Nr
53        INTEGER I,J,kUp,kUpC,kTop        INTEGER I,J,kUp,kUpC,kTop
# Line 87  CML        IF (k.EQ.kTop) maskUp=0. Line 87  CML        IF (k.EQ.kTop) maskUp=0.
87         ENDDO         ENDDO
88        ENDDO        ENDDO
89    
90  #ifdef ALLOW_DIAGNOSTICS  CML#ifdef ALLOW_DIAGNOSTICS
91        IF (useDiagnostics) THEN  CML      IF (useDiagnostics) THEN
92          CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)  CML        CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)
93        ENDIF  CML      ENDIF
94  #endif /* ALLOW_DIAGNOSTICS */  CML#endif /* ALLOW_DIAGNOSTICS */
95    
96        RETURN        RETURN
97        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22