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

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

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

revision 1.28 by edhill, Thu Mar 30 02:56:14 2006 UTC revision 1.29 by jmc, Thu Mar 30 20:25:43 2006 UTC
# Line 522  C       Text Attribute Line 522  C       Text Attribute
522       &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''',       &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''',
523       &         tname(n1:n2), ''' has more than ', MNC_MAX_CHAR,       &         tname(n1:n2), ''' has more than ', MNC_MAX_CHAR,
524       &         ' characters and has been truncated to fit'       &         ' characters and has been truncated to fit'
525            CALL print_error(msgbuf, mythid)            CALL PRINT_MESSAGE( msgbuf, errorMessageUnit,
526         &                        SQUEEZE_RIGHT , myThid)
527  C         MNC_MAX_CHAR = n2 - n1 + 1  C         MNC_MAX_CHAR = n2 - n1 + 1
528            n2 = MNC_MAX_CHAR + n1 - 1            n2 = MNC_MAX_CHAR + n1 - 1
529          ENDIF          ENDIF
# Line 538  C       write(*,*) atype,tname(n1:n2) Line 539  C       write(*,*) atype,tname(n1:n2)
539       &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''',       &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''',
540       &         tval(n1:n2), ''' has more than ', MNC_MAX_CHAR,       &         tval(n1:n2), ''' has more than ', MNC_MAX_CHAR,
541       &         ' characters and has been truncated to fit'       &         ' characters and has been truncated to fit'
542            CALL print_error(msgbuf, mythid)            CALL PRINT_MESSAGE( msgbuf, errorMessageUnit,
543         &                        SQUEEZE_RIGHT , myThid)
544            n2 = MNC_MAX_CHAR + n1 - 1            n2 = MNC_MAX_CHAR + n1 - 1
545          ENDIF          ENDIF
546    
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22