/[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.17 by gforget, Mon Aug 9 20:34:02 2010 UTC revision 1.18 by gforget, Wed Aug 11 03:32:29 2010 UTC
# Line 523  C     solve tri-diagonal system, and sto Line 523  C     solve tri-diagonal system, and sto
523       I                        a, b, c,       I                        a, b, c,
524       U                        gTKE,       U                        gTKE,
525       O                        errCode,       O                        errCode,
526       I                        bi, bj, myThid )       I                        1, 1, myThid )
527    
528  C     now update TKE  C     now update TKE
529        DO K=1,Nr        DO K=1,Nr
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22