Changeset 2947 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/diadct_sections.f90

Timestamp:

2011-10-17T17:36:04+02:00 (13 years ago)

Author:

rfurner

Message:

small changes to comments

File:

• branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/diadct_sections.f90 (modified) (2 diffs)

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

@@ -24 +24 @@
      CHARACTER(LEN=80)  :: cdum
      INTEGER            :: jsec ,&! loop on sections
-                           jseg   ! loop on sections' points
+                           jseg   ! loop on segments (parts of the section)
      CHARACTER(len=40)  :: clname
      LOGICAL            :: llok
@@ -87 +87 @@
      !----------------------!
      DO jsec=1,nb_sec
-          !we use compsec to generate the serie of grid points making the section
+          !we use compsec to generate the series of grid points making the section
           IF(jsec == nsecdebug .OR. nsecdebug ==-1)THEN
              CALL compsec(jsec,secs(jsec),.true.)