/[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.27 by edhill, Fri Mar 10 22:01:53 2006 UTC revision 1.28 by edhill, Thu Mar 30 02:56:14 2006 UTC
# Line 517  C       Text Attribute Line 517  C       Text Attribute
517          n = mnc_cw_vnat(1,indv) + 1          n = mnc_cw_vnat(1,indv) + 1
518          n1 = IFNBLNK(tname)          n1 = IFNBLNK(tname)
519          n2 = ILNBLNK(tname)          n2 = ILNBLNK(tname)
520            IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN
521              write(msgbuf,'(3a,i6,a)')
522         &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''',
523         &         tname(n1:n2), ''' has more than ', MNC_MAX_CHAR,
524         &         ' characters and has been truncated to fit'
525              CALL print_error(msgbuf, mythid)
526    C         MNC_MAX_CHAR = n2 - n1 + 1
527              n2 = MNC_MAX_CHAR + n1 - 1
528            ENDIF
529  C       write(*,*) atype,tname(n1:n2)  C       write(*,*) atype,tname(n1:n2)
530          mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) =          mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) =
531       &       mnc_blank_name(1:MNC_MAX_CHAR)       &       mnc_blank_name(1:MNC_MAX_CHAR)
532          mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)          mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)
533    
534          n1 = IFNBLNK(tval)          n1 = IFNBLNK(tval)
535          n2 = ILNBLNK(tval)          n2 = ILNBLNK(tval)
536            IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN
537              write(msgbuf,'(3a,i6,a)')
538         &         'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''',
539         &         tval(n1:n2), ''' has more than ', MNC_MAX_CHAR,
540         &         ' characters and has been truncated to fit'
541              CALL print_error(msgbuf, mythid)
542              n2 = MNC_MAX_CHAR + n1 - 1
543            ENDIF
544    
545          IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN          IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN
546            mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) =            mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) =
547       &         mnc_blank_name(1:MNC_MAX_CHAR)                 &         mnc_blank_name(1:MNC_MAX_CHAR)          
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22