/[MITgcm]/MITgcm/pkg/down_slope/dwnslp_calc_flow.F
ViewVC logotype

Diff of /MITgcm/pkg/down_slope/dwnslp_calc_flow.F

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

revision 1.3 by jmc, Fri Apr 23 13:19:26 2010 UTC revision 1.4 by jmc, Tue Jun 7 21:05:13 2011 UTC
# Line 9  C     !INTERFACE: Line 9  C     !INTERFACE:
9        SUBROUTINE DWNSLP_CALC_FLOW(        SUBROUTINE DWNSLP_CALC_FLOW(
10       I                             bi, bj, kBottom, rho3d,       I                             bi, bj, kBottom, rho3d,
11       I                             myTime, myIter, myThid )       I                             myTime, myIter, myThid )
12    
13  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
14  C     *==========================================================*  C     *==========================================================*
15  C     | SUBROUTINE DWNSLP_CALC_FLOW  C     | SUBROUTINE DWNSLP_CALC_FLOW
# Line 46  C     myThid    :: my Thread Id number Line 47  C     myThid    :: my Thread Id number
47    
48  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
49  C     === Local variables ===  C     === Local variables ===
50  C     msgBuf     :: Informational/error message buffer  C     msgBuf    :: Informational/error message buffer
51  C     ijd     :: horiz. index of deep water column receiving dense water flow  C     ijd     :: horiz. index of deep water column receiving dense water flow
52  C     ijs     :: horiz. index of shallow water column (e.g. shelf)  C     ijs     :: horiz. index of shallow water column (e.g. shelf)
53  C                from which dense water flow originates  C                from which dense water flow originates
# Line 137  C    with DWNSLP_Gamma = slope * effecti Line 138  C    with DWNSLP_Gamma = slope * effecti
138  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
139        ENDDO        ENDDO
140    
141        IF (debugMode) THEN        IF ( DWNSLP_ioUnit.GT.0 ) THEN
142           _BEGIN_MASTER(myThid)
143         WRITE(DWNSLP_ioUnit,'(A,I8,2I4)')         WRITE(DWNSLP_ioUnit,'(A,I8,2I4)')
144       &      ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj       &      ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj
145         WRITE(DWNSLP_ioUnit,'(A)')         WRITE(DWNSLP_ioUnit,'(A)')
# Line 156  C---+----1----+----2----+----3----+----4 Line 158  C---+----1----+----2----+----3----+----4
158          ENDIF          ENDIF
159         ENDDO         ENDDO
160         WRITE(DWNSLP_ioUnit,*)         WRITE(DWNSLP_ioUnit,*)
161           _END_MASTER(myThid)
162        ENDIF        ENDIF
163    
164  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22