10 |
SUBROUTINE GGL90_CALC( |
SUBROUTINE GGL90_CALC( |
11 |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
12 |
|
|
|
|
|
13 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: \bv |
14 |
C *==========================================================* |
C *==========================================================* |
15 |
C | SUBROUTINE GGL90_CALC | |
C | SUBROUTINE GGL90_CALC | |
534 |
C solve tri-diagonal system |
C solve tri-diagonal system |
535 |
CALL SOLVE_TRIDIAGONAL( iMin,iMax, jMin,jMax, |
CALL SOLVE_TRIDIAGONAL( iMin,iMax, jMin,jMax, |
536 |
I a3d, b3d, c3d, |
I a3d, b3d, c3d, |
537 |
U GGL90TKE, |
U GGL90TKE(1-OLx,1-OLy,1,bi,bj), |
538 |
O errCode, |
O errCode, |
539 |
I bi, bj, myThid ) |
I bi, bj, myThid ) |
540 |
|
|