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 |
47 |
|
|
48 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
49 |
C === Local variables === |
C === Local variables === |
50 |
C msgBuf :: Informational/error meesage 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 |
94 |
DO n=1,DWNSLP_NbSite(bi,bj) |
DO n=1,DWNSLP_NbSite(bi,bj) |
95 |
DWNSLP_deepK(n,bi,bj) = 0 |
DWNSLP_deepK(n,bi,bj) = 0 |
96 |
|
|
97 |
C- detect density dradient along the slope => Downsloping flow |
C- detect density gradient along the slope => Downsloping flow |
98 |
|
|
99 |
ijd = DWNSLP_ijDeep(n,bi,bj) |
ijd = DWNSLP_ijDeep(n,bi,bj) |
100 |
ijr = DWNSLP_shVsD(n,bi,bj) |
ijr = DWNSLP_shVsD(n,bi,bj) |
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)') |
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 |