Changeset 3196


Ignore:
Timestamp:
2011-12-07T08:27:03+01:00 (10 years ago)
Author:
cbricaud
Message:

correct smal bug in SECTIONS_DIADCT TOOLS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90

    r2951 r3196  
    370370        DO WHILE ( (  sec%listPoint(jseg)%I .NE.  endingPoint%I    & 
    371371                 .OR. sec%listPoint(jseg)%J .NE. endingPoint%J   ) & 
    372                  .AND. jseg .LT. 500 .AND. sec%listPoint(jseg)%I .GT. 0  )          
     372                 .AND. jseg .LT. nb_inmesh + 1 .AND. sec%listPoint(jseg)%I .GT. 0  )          
    373373    
    374374           ! a. find the 4 adjacent points (North, South, East, West) 
Note: See TracChangeset for help on using the changeset viewer.