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

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

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

revision 1.2 by edhill, Sun Mar 21 03:44:23 2004 UTC revision 1.3 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_UDIM
9    
10    C !INTERFACE:
11        SUBROUTINE MNC_CW_SET_UDIM(        SUBROUTINE MNC_CW_SET_UDIM(
12       I     fgname,       I     fgname,
13       I     nudim,       I     nudim,
14       I     myThid )       I     myThid )
15    
16    C     !DESCRIPTION:
17    C     For a specified file group name, set the size of the NetCDF
18    C     unlimited (or record) dimension.
19          
20    C     !USES:
21        implicit none        implicit none
22  #include "mnc_common.h"  #include "mnc_common.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24    
25  C     Arguments  C     !INPUT PARAMETERS:
26        integer nudim, myThid        integer nudim, myThid
27        character*(*) fgname        character*(*) fgname
28    
29  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
30        integer fgf,fgl, indfg        integer fgf,fgl, indfg
31        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
32    CEOP
33    C     Functions
34          integer IFNBLNK, ILNBLNK
35    
36  C     Check that this name is not already defined  C     Check that this name is not already defined
37        fgf = IFNBLNK(fgname)        fgf = IFNBLNK(fgname)
# Line 40  C     Check that this name is not alread Line 48  C     Check that this name is not alread
48        END        END
49    
50  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
51    CBOP
52    C !ROUTINE: MNC_CW_GET_UDIM
53    
54    C !INTERFACE:
55        SUBROUTINE MNC_CW_GET_UDIM(        SUBROUTINE MNC_CW_GET_UDIM(
56       I     fgname,       I     fgname,
57       O     nudim,       O     nudim,
58       I     myThid )       I     myThid )
59    
60    C     !DESCRIPTION:
61    C     For a specified file group name, get the size of the NetCDF
62    C     unlimited (or record) dimension.
63    
64    C     !USES:
65        implicit none        implicit none
66  #include "mnc_common.h"  #include "mnc_common.h"
67  #include "EEPARAMS.h"  #include "EEPARAMS.h"
68    
69  C     Arguments  C     !INPUT PARAMETERS:
70        integer nudim, myThid        integer nudim, myThid
71        character*(*) fgname        character*(*) fgname
72    
73  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
74        integer fgf,fgl, indfg        integer fgf,fgl, indfg
75        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
76    CEOP
77    C     Functions
78          integer IFNBLNK, ILNBLNK
79    
80        fgf = IFNBLNK(fgname)        fgf = IFNBLNK(fgname)
81        fgl = ILNBLNK(fgname)        fgl = ILNBLNK(fgname)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22