/[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.15 by edhill, Tue Jul 6 21:04:28 2004 UTC revision 1.16 by edhill, Tue Jul 6 22:38:31 2004 UTC
# Line 781  C     Text Attributes Line 781  C     Text Attributes
781        DO i = 1,ntat        DO i = 1,ntat
782          n1 = IFNBLNK(tnames(i))          n1 = IFNBLNK(tnames(i))
783          n2 = ILNBLNK(tnames(i))          n2 = ILNBLNK(tnames(i))
784            mnc_cw_vtnm(n+i,indv)(1:MNC_MAX_CHAR) =
785         &       mnc_blank_name(1:MNC_MAX_CHAR)
786          mnc_cw_vtnm(n+i,indv)(1:(n2-n1+1)) = tnames(i)(n1:n2)          mnc_cw_vtnm(n+i,indv)(1:(n2-n1+1)) = tnames(i)(n1:n2)
787          n1 = IFNBLNK(tvals(i))          n1 = IFNBLNK(tvals(i))
788          n2 = ILNBLNK(tvals(i))          n2 = ILNBLNK(tvals(i))
789            mnc_cw_vtat(n+i,indv)(1:MNC_MAX_CHAR) =
790         &       mnc_blank_name(1:MNC_MAX_CHAR)
791          mnc_cw_vtat(n+i,indv)(1:(n2-n1+1)) = tvals(i)(n1:n2)          mnc_cw_vtat(n+i,indv)(1:(n2-n1+1)) = tvals(i)(n1:n2)
792        ENDDO        ENDDO
793        mnc_cw_vnat(1,indv) = n + ntat        mnc_cw_vnat(1,indv) = n + ntat
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22