/[MITgcm]/MITgcm/pkg/ggl90/ggl90_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_calc.F

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

revision 1.25 by mlosch, Mon Nov 5 13:11:11 2012 UTC revision 1.26 by jmc, Thu Aug 14 16:42:35 2014 UTC
# Line 10  C !INTERFACE: ========================== Line 10  C !INTERFACE: ==========================
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                                    |
# Line 535  C     Dirichlet bottom boundary conditio Line 534  C     Dirichlet bottom boundary conditio
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    
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22