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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/readcoordmesh.f90
r2878 r2947 21 21 !! *** ROUTINE coord_mesh_read *** 22 22 !! 23 !! ** Purpose : Read a coordinate and a meshmask file in NetCDF format23 !! ** Purpose : Read a coordinate file and a meshmask file in NetCDF format 24 24 !! 25 25 !!--------------------------------------------------------------------- … … 57 57 !! *** ROUTINE getdim *** 58 58 !! 59 !! ** Purpose : get dim sensions of a netcdf file59 !! ** Purpose : get dimensions of a netcdf file 60 60 !! 61 61 !!---------------------------------------------------------------------- … … 68 68 INTEGER :: istatus, id_var ! dummy variable 69 69 CHARACTER(len=30) :: clname ! dimension name 70 INTEGER, ALLOCATABLE,DIMENSION(:) :: ndim ! dimension svalue70 INTEGER, ALLOCATABLE,DIMENSION(:) :: ndim ! dimension value 71 71 !!---------------------------------------------------------------------- 72 72
Note: See TracChangeset
for help on using the changeset viewer.