/[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.9 by edhill, Fri Mar 10 05:50:23 2006 UTC revision 1.10 by dfer, Mon Aug 27 15:53:05 2007 UTC
# Line 69  C     Check that this name is not alread Line 69  C     Check that this name is not alread
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'
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22