/[MITgcm]/MITgcm/eesupp/src/different_multiple.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/different_multiple.F

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

revision 1.8 by jmc, Sun May 15 02:58:40 2005 UTC revision 1.9 by jmc, Tue Sep 27 18:38:28 2005 UTC
# Line 58  C         Test v1 to see if its a "close Line 58  C         Test v1 to see if its a "close
58            d1 = v1-v4            d1 = v1-v4
59            d2 = v2-v4            d2 = v2-v4
60            d3 = v3-v4            d3 = v3-v4
61            IF ( ABS(d1) .LE. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) )            IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) )
62       &        DIFFERENT_MULTIPLE = .TRUE.       &        DIFFERENT_MULTIPLE = .TRUE.
63    
64          ENDIF          ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22