/[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.4 by edhill, Fri Apr 2 16:12:48 2004 UTC revision 1.5 by edhill, Mon Apr 5 06:01:07 2004 UTC
# Line 51  C     Check that this name is not alread Line 51  C     Check that this name is not alread
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, indfg, myThid)
54            mnc_cw_fgud(indfg) = 0
55        ENDIF        ENDIF
56        mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)        mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)
57        mnc_cw_fgud(indfg) = nudim        IF (nudim .GT. 0) THEN
58            mnc_cw_fgud(indfg) = nudim
59            RETURN
60          ENDIF
61          IF (nudim .EQ. 0) RETURN
62          IF (nudim .EQ. -1) THEN
63            mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1
64            RETURN
65          ENDIF
66          write(msgbuf,'(3a,i,a)')
67         &     'MNC_CW_SET_UDIM ERROR: for file group name ''',
68         &     fgname(fgf:fgl), ''' the unlim dim ''', nudim,
69         &     ''' is not allowed'
70          CALL print_error(msgbuf, mythid)
71          STOP 'ABNORMAL END: S/R MNC_CW_SET_UDIM'
72    
73        RETURN        RETURN
74        END        END
# Line 94  C     Functions Line 109  C     Functions
109        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)
110        IF (indfg .LT. 1) THEN        IF (indfg .LT. 1) THEN
111          write(msgbuf,'(3a)')          write(msgbuf,'(3a)')
112       &       'MNC_CW_SET_UDIM ERROR: file group name ''',       &       'MNC_CW_GET_UDIM ERROR: file group name ''',
113       &       fgname(fgf:fgl), ''' is not defined'       &       fgname(fgf:fgl), ''' is not defined'
114          CALL print_error(msgbuf, mythid)          CALL print_error(msgbuf, mythid)
115          STOP 'ABNORMAL END: S/R MNC_CW_SET_UDIM'          STOP 'ABNORMAL END: S/R MNC_CW_GET_UDIM'
116        ENDIF        ENDIF
117        nudim = mnc_cw_fgud(indfg)        nudim = mnc_cw_fgud(indfg)
118    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22