New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2877 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/readcoordmesh.f90 – NEMO

Ignore:
Timestamp:
2011-09-29T18:54:19+02:00 (13 years ago)
Author:
cbricaud
Message:

coding rules

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2858 r2877  
    2222  !! 
    2323  !! ** Purpose :   Read a coordinate and a meshmask file in NetCDF format  
     24  !! 
    2425  !!---------------------------------------------------------------------       
    2526  PRINT*,'              ' 
    … …  
    5455  SUBROUTINE getdim(cdfile) 
    5556  !!---------------------------------------------------------------------- 
    56   !!              ***  ROUTINE coord_mesh_read  *** 
     57  !!              ***  ROUTINE getdim  *** 
    5758  !! 
    58   !! ** Purpose :   Read a coordinate and a meshmask file in NetCDF format 
     59  !! ** Purpose :   get dimsensions of a netcdf file 
     60  !! 
    5961  !!---------------------------------------------------------------------- 
    6062  !! * Arguments 
    … …  
    110112  !! 
    111113  !! ** Purpose :   Read a coordinate and a meshmask file in NetCDF format 
     114  !! 
    112115  !!---------------------------------------------------------------------- 
    113116  !! * Arguments 
Note: See TracChangeset for help on using the changeset viewer.