/[MITgcm]/MITgcm/model/src/impldiff.F
ViewVC logotype

Diff of /MITgcm/model/src/impldiff.F

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

revision 1.15 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.16 by heimbach, Mon May 14 21:46:17 2001 UTC
# Line 45  C     == Local variables == Line 45  C     == Local variables ==
45        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
46    
47  C--   Initialise  C--   Initialise
48          DO k=1,Nr
49           DO j=jMin,jMax
50            DO i=iMin,iMax
51             gYNm1(i,j,k,bi,bj) = 0. _d 0
52            ENDDO
53           ENDDO
54          ENDDO
55    
56  C--   Old aLower  C--   Old aLower
57        DO j=jMin,jMax        DO j=jMin,jMax
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22