Changeset 2947 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/readcoordmesh.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/readcoordmesh.f90 (modified) (3 diffs)

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

@@ -21 +21 @@
   !!              ***  ROUTINE coord_mesh_read  ***
   !!
-  !! ** Purpose :   Read a coordinate and a meshmask file in NetCDF format 
+  !! ** Purpose :   Read a coordinate file and a meshmask file in NetCDF format 
   !!
   !!---------------------------------------------------------------------      
@@ -57 +57 @@
   !!              ***  ROUTINE getdim  ***
   !!
-  !! ** Purpose :   get dimsensions of a netcdf file
+  !! ** Purpose :   get dimensions of a netcdf file
   !!
   !!----------------------------------------------------------------------
@@ -68 +68 @@
   INTEGER           :: istatus, id_var      ! dummy variable
   CHARACTER(len=30) :: clname               ! dimension name   
-  INTEGER, ALLOCATABLE,DIMENSION(:) :: ndim ! dimensions value
+  INTEGER, ALLOCATABLE,DIMENSION(:) :: ndim ! dimension value
   !!----------------------------------------------------------------------