Changeset 3294 for trunk/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

Location:

trunk/NEMOGCM/TOOLS/SECTIONS_DIADCT

Files:

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

trunk/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)