9 |
SUBROUTINE GMREDI_CALC_UVFLOW( |
SUBROUTINE GMREDI_CALC_UVFLOW( |
10 |
U uTrans, vTrans, |
U uTrans, vTrans, |
11 |
I bi, bj, k, myThid) |
I bi, bj, k, myThid) |
12 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: |
13 |
C *==========================================================* |
C Add GM-bolus flow to Eulerian horizontal transport. |
|
C | o SUBROUTINE GMREDI_CALC_UVFLOW |
|
|
C | Add GM-bolus flow to Eulerian horizontal transport |
|
|
C *==========================================================* |
|
|
C \ev |
|
14 |
|
|
15 |
C !USES: |
C !USES: |
16 |
IMPLICIT NONE |
IMPLICIT NONE |