Changeset 3196 for branches/2011/dev_NEMO_MERGE_2011

Timestamp:

2011-12-07T08:27:03+01:00 (12 years ago)

Author:

cbricaud

Message:

correct smal bug in SECTIONS_DIADCT TOOLS

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90

@@ -370 +370 @@
         DO WHILE ( (  sec%listPoint(jseg)%I .NE.  endingPoint%I    &
                  .OR. sec%listPoint(jseg)%J .NE. endingPoint%J   ) &
-                 .AND. jseg .LT. 500 .AND. sec%listPoint(jseg)%I .GT. 0  )         
+                 .AND. jseg .LT. nb_inmesh + 1 .AND. sec%listPoint(jseg)%I .GT. 0  )         
    
            ! a. find the 4 adjacent points (North, South, East, West)