Changeset 2877 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/readsections.f90

Timestamp:

2011-09-29T18:54:19+02:00 (13 years ago)

Author:

cbricaud

Message:

coding rules

File:

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

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

@@ -22 +22 @@
      !!         ***  ROUTINE read_list_sections ***
      !!
-     !! ** Purpose
+     !! ** Purpose: read ascii file 'list_sections.ascii' that contains
+     !!             sections description
      !!
-     !! ** Method
-     !!
-     !! ** Input
-     !!
-     !! ** Action
-     !!
-     !! History
      !!---------------------------------------------------------------------
      !! * arguments
@@ -45 +39 @@
      CHARACTER(len=9)    :: cdstrpond
      CHARACTER(len=110)  :: clname,cdsecname,cltmp
-     REAL,DIMENSION(nb_type_class):: zclass_value
-     TYPE(COORD_SECTION) :: coord_point1,coord_point2,coordTemp
-     TYPE(COORD_SECTION), DIMENSION(2)::coord_sec
+     REAL,DIMENSION(nb_type_class)     :: zclass_value
+     TYPE(COORD_SECTION)               :: coord_point1,coord_point2,coordTemp
+     TYPE(COORD_SECTION), DIMENSION(2) :: coord_sec
      !!---------------------------------------------------------------------
      PRINT*,'              '