/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_write_grid_info.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_write_grid_info.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by edhill, Wed Mar 24 15:29:33 2004 UTC revision 1.7 by edhill, Mon Mar 29 03:33:51 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C !ROUTINE: MNC_CW_WRITE_GRID_INFO
9    
10    C !INTERFACE:
11        SUBROUTINE MNC_CW_WRITE_GRID_INFO(        SUBROUTINE MNC_CW_WRITE_GRID_INFO(
12       I     bfname,         I     bfname,  
13       I     myThid )       I     myThid )
14    
15    C     !DESCRIPTION:
16    C     This subroutine writes all the grid information (\textit{eg.}
17    C     locations, spacings, areas, \textit{etc.}) to one grid file
18    C     (\texttt{grid.xxxxx.nc}) per tile.
19          
20    C     !USES:
21        implicit none        implicit none
22  #include "mnc_common.h"  #include "mnc_common.h"
   
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28    
29  C     Arguments  C     !INPUT PARAMETERS:
30        integer myThid        integer myThid
31        character*(*) bfname        character*(*) bfname
32    
33    C     !LOCAL VARIABLES:
34          integer nf,nl
35    CEOP
36  C     Functions  C     Functions
37        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
38    
 C     Local Variables  
       integer nf,nl  
   
39        nf = IFNBLNK(bfname)        nf = IFNBLNK(bfname)
40        nl = ILNBLNK(bfname)        nl = ILNBLNK(bfname)
41    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22