/[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.5 by edhill, Mon Apr 5 06:01:07 2004 UTC revision 1.11 by mlosch, Thu May 22 12:21:19 2008 UTC
# Line 29  C     \end{equation} Line 29  C     \end{equation}
29    
30  C     !USES:  C     !USES:
31        implicit none        implicit none
32  #include "mnc_common.h"  #include "MNC_COMMON.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34    
35  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 50  C     Check that this name is not alread Line 50  C     Check that this name is not alread
50        CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid)        CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid)
51        IF (indfg .LT. 1) THEN        IF (indfg .LT. 1) THEN
52          CALL MNC_GET_NEXT_EMPTY_IND(          CALL MNC_GET_NEXT_EMPTY_IND(
53       &       MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid)       &       MNC_MAX_ID, mnc_cw_fgnm, 'mnc_cw_fgnm', indfg, myThid)
54            mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)
55          mnc_cw_fgud(indfg) = 0          mnc_cw_fgud(indfg) = 0
56            mnc_cw_fgig(indfg) = 0
57        ENDIF        ENDIF
       mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)  
58        IF (nudim .GT. 0) THEN        IF (nudim .GT. 0) THEN
59            mnc_cw_fgig(indfg) = 0
60          mnc_cw_fgud(indfg) = nudim          mnc_cw_fgud(indfg) = nudim
61          RETURN          RETURN
62        ENDIF        ENDIF
63        IF (nudim .EQ. 0) RETURN        IF (nudim .EQ. 0) THEN
64            mnc_cw_fgig(indfg) = 0
65            RETURN
66          ENDIF
67        IF (nudim .EQ. -1) THEN        IF (nudim .EQ. -1) THEN
68            mnc_cw_fgig(indfg) = 1
69          mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1          mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1
70          RETURN          RETURN
71        ENDIF        ENDIF
72        write(msgbuf,'(3a,i,a)')        write(msgbuf,'(3a,i10,a)')
73       &     'MNC_CW_SET_UDIM ERROR: for file group name ''',       &     'MNC_CW_SET_UDIM ERROR: for file group name ''',
74       &     fgname(fgf:fgl), ''' the unlim dim ''', nudim,       &     fgname(fgf:fgl), ''' the unlim dim ''', nudim,
75       &     ''' is not allowed'       &     ''' is not allowed'
# Line 89  C     unlimited (or record) dimension. Line 95  C     unlimited (or record) dimension.
95    
96  C     !USES:  C     !USES:
97        implicit none        implicit none
98  #include "mnc_common.h"  #include "MNC_COMMON.h"
99  #include "EEPARAMS.h"  #include "EEPARAMS.h"
100    
101  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 120  C     Functions Line 126  C     Functions
126        END        END
127    
128  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22