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

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

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

revision 1.5 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.6 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_SET_GATTR
9    
10    C !INTERFACE:
11        SUBROUTINE MNC_CW_SET_GATTR(        SUBROUTINE MNC_CW_SET_GATTR(
12       I     fname,       I     fname,
13       I     bi, bj, tnum,       I     bi, bj, tnum,
14       I     myThid )       I     myThid )
15    
16    C     !DESCRIPTION:
17    C     This subroutine uses the MNC convenience wrapper layer to write
18    C     per-tile grid (grid.xxxxx.nc) files containing all of the grid
19    C     information including locations, spacing, areas, \textit{etc}.
20    
21    C     !USES:
22        implicit none        implicit none
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 22  C---+----1----+----2----+----3----+----4 Line 31  C---+----1----+----2----+----3----+----4
31  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
32  #endif  #endif
33    
34  C     Arguments  C !INPUT PARAMETERS:
35        integer myThid, bi,bj, tnum        integer myThid, bi,bj, tnum
36        character*(*) fname        character*(*) fname
37    CEOP
38    
39        CALL MNC_FILE_REDEF(fname, myThid)        CALL MNC_FILE_REDEF(fname, myThid)
40    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22