/[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.2 by mlosch, Mon Feb 13 12:49:21 2006 UTC revision 1.3 by mlosch, Mon Aug 14 17:16:10 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    #ifdef ALLOW_SHELFICE
51  C !LOCAL VARIABLES : ====================================================  C !LOCAL VARIABLES : ====================================================
52  C  i,j                  :: loop indices  C  i,j                  :: loop indices
53  C  Kp1                  :: =k+1 for k<Nr, =Nr for k>=Nr  C  Kp1                  :: =k+1 for k<Nr, =Nr for k>=Nr
# Line 54  C  Kp1                  :: =k+1 for k<Nr Line 55  C  Kp1                  :: =k+1 for k<Nr
55        _RL rdrckp1,maskUp        _RL rdrckp1,maskUp
56  CEOP  CEOP
57    
58  C-  No-slip BCs impose a drag at bottom  C-  No-slip BCs impose a drag at top
59        IF ( usingZCoords ) THEN        IF ( usingZCoords ) THEN
60         kTop    = 1         kTop    = 1
61         kUp     = k         kUp     = k
# Line 92  CML      IF (useDiagnostics) THEN Line 93  CML      IF (useDiagnostics) THEN
93  CML        CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)  CML        CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)
94  CML      ENDIF  CML      ENDIF
95  CML#endif /* ALLOW_DIAGNOSTICS */  CML#endif /* ALLOW_DIAGNOSTICS */
96    #endif /* ALLOW_SHELFICE */
97    
98        RETURN        RETURN
99        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22