/[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.20 by edhill, Thu Sep 23 03:28:42 2004 UTC revision 1.21 by edhill, Thu Oct 7 01:48:08 2004 UTC
# Line 752  C       write(*,*) atype,tname(n1:n2) Line 752  C       write(*,*) atype,tname(n1:n2)
752          mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)          mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)
753          n1 = IFNBLNK(tval)          n1 = IFNBLNK(tval)
754          n2 = ILNBLNK(tval)          n2 = ILNBLNK(tval)
755          mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) =          IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN
756       &       mnc_blank_name(1:MNC_MAX_CHAR)            mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) =
757          mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2)       &         mnc_blank_name(1:MNC_MAX_CHAR)          
758          mnc_cw_vnat(1,indv) = n            mnc_cw_vnat(1,indv) = n
759            ELSE
760              mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) =
761         &         mnc_blank_name(1:MNC_MAX_CHAR)
762              mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2)
763              mnc_cw_vnat(1,indv) = n
764            ENDIF
765        ENDIF        ENDIF
766                    
767        IF (atype .EQ. 2) THEN        IF (atype .EQ. 2) THEN
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22