Changeset 2858 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90

Timestamp:

2011-09-26T10:54:50+02:00 (13 years ago)

Author:

cbricaud

Message:

cleanning, minor modifications

File:

• branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90 (modified) (3 diffs)

branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90

@@ -52 +52 @@
      llok=.FALSE.
      clname='section_ijglobal.diadct'
-     !CALL file_open(numdctout,clname,llok)
      CALL file_open(numdctout,clname,llok,cdform="UNFORMATTED",cdstatus="REPLACE",cdaction="WRITE")
 
@@ -77 +76 @@
              IF( secs(jsec)%nb_point .NE. 0 )THEN
                 DO jseg=1,secs(jsec)%nb_point
-                   point=POINT_SECTION( mig(secs(jsec)%listPoint(jseg)%I) , mjg(secs(jsec)%listPoint(jseg)%J) )
-                   i1 = mig(secs(jsec)%listPoint(jseg)%I) ; i2 = mjg(secs(jsec)%listPoint(jseg)%J)
-                   !WRITE(numdctout)point
+                   i1 = secs(jsec)%listPoint(jseg)%I  ; i2 = secs(jsec)%listPoint(jseg)%J
                    WRITE(numdctout)i1,i2
                 ENDDO
@@ -85 +82 @@
              ENDIF
 
-
-             !---------------------
-             !WRITE(500,*)jsec
-             !WRITE(500,*)secs(jsec)%name
-             !WRITE(500,*)secs(jsec)%llstrpond
-             !WRITE(500,*)secs(jsec)%ll_ice_section
-             !WRITE(500,*)secs(jsec)%ll_date_line
-             !WRITE(500,*)secs(jsec)%coordSec
-             !WRITE(500,*)secs(jsec)%nb_class
-             !WRITE(500,*)secs(jsec)%zsigi
-             !WRITE(500,*)secs(jsec)%zsigp
-             !WRITE(500,*)secs(jsec)%zsal
-             !WRITE(500,*)secs(jsec)%ztem
-             !WRITE(500,*)secs(jsec)%zlay
-             !WRITE(500,*)secs(jsec)%slopeSection
-             !WRITE(500,*)secs(jsec)%nb_point
-             !IF( secs(jsec)%nb_point .NE. 0 )THEN
-             !   DO jseg=1,secs(jsec)%nb_point
-             !      point=POINT_SECTION( mig(secs(jsec)%listPoint(jseg)%I) , mjg(secs(jsec)%listPoint(jseg)%J) )
-             !      WRITE(500,*)point
-             !   ENDDO
-             !   WRITE(500,*)secs(jsec)%direction(1:secs(jsec)%nb_point)
-             !ENDIF
-
-             !---------------------
           ENDDO !end of loop on sections