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

Diff of /MITgcm/pkg/shelfice/shelfice_u_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  uDragTerms           :: drag term  C  uDragTerms           :: drag term
48        _RL uDragTerms(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL uDragTerms(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 55  C  Kp1                  :: =k+1 for k<Nr Line 56  C  Kp1                  :: =k+1 for k<Nr
56        _RL rdrckp1,maskUp        _RL rdrckp1,maskUp
57  CEOP  CEOP
58    
59  C-  No-slip BCs impose a drag at bottom  C-  No-slip BCs impose a drag at top
60        IF ( usingZCoords ) THEN        IF ( usingZCoords ) THEN
61         kTop    = 1         kTop    = 1
62         kUp     = k         kUp     = k
# Line 94  CML        CALL DIAGNOSTICS_FILL(uDragTe Line 95  CML        CALL DIAGNOSTICS_FILL(uDragTe
95  CML     &      myThid)  CML     &      myThid)
96  CML      ENDIF  CML      ENDIF
97  CML#endif /* ALLOW_DIAGNOSTICS */  CML#endif /* ALLOW_DIAGNOSTICS */
98    #endif /* ALLOW_SHELFICE */
99    
100        RETURN        RETURN
101        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22