/[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.18 by mlosch, Mon Dec 16 21:40:07 2002 UTC revision 1.19 by jmc, Sun Dec 28 17:25:25 2003 UTC
# Line 54  C     == Local variables == Line 54  C     == Local variables ==
54        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
55  CEOP  CEOP
56    
57          IF (Nr.LE.1) RETURN
58    
59  C--   Initialise  C--   Initialise
60        DO k=1,Nr        DO k=1,Nr
61         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22