/[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.18 by edhill, Wed Sep 1 02:43:36 2004 UTC revision 1.19 by edhill, Wed Sep 22 21:19:44 2004 UTC
# Line 27  C     !USES: Line 27  C     !USES:
27  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
28        integer myThid, ndim        integer myThid, ndim
29        character*(*) name        character*(*) name
30        integer dlens(*), inds_beg(*), inds_end(*)        integer dlens(ndim), inds_beg(ndim), inds_end(ndim)
31        character*(*) dnames(*)        character*(*) dnames(ndim)
32  CEOP  CEOP
33    
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 624  C     !ROUTINE: MNC_CW_ADD_VATTR_TEXT Line 624  C     !ROUTINE: MNC_CW_ADD_VATTR_TEXT
624  C     !INTERFACE:  C     !INTERFACE:
625        SUBROUTINE MNC_CW_ADD_VATTR_TEXT(        SUBROUTINE MNC_CW_ADD_VATTR_TEXT(
626       I     vname,       I     vname,
627       I     ntat,       I     tname,
628       I     tnames,       I     tval,
      I     tvals,  
629       I     myThid )       I     myThid )
630    
631  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 636  C     !USES: Line 635  C     !USES:
635        implicit none        implicit none
636    
637  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
638        integer myThid, ntat        integer myThid
639        character*(*) vname, tnames(*), tvals(*)        character*(*) vname, tname, tval
640  CEOP  CEOP
641    
642        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
643       &     ntat, 0, 0,       &     tname, ' ', ' ',
644       &     tnames, ' ', ' ',       &     tval, 0, 0.0D0, myThid )
      &     tvals, 0, 0.0D0, myThid )  
645    
646        RETURN        RETURN
647        END        END
# Line 655  C     !ROUTINE: MNC_CW_ADD_VATTR_INT Line 653  C     !ROUTINE: MNC_CW_ADD_VATTR_INT
653  C     !INTERFACE:  C     !INTERFACE:
654        SUBROUTINE MNC_CW_ADD_VATTR_INT(        SUBROUTINE MNC_CW_ADD_VATTR_INT(
655       I     vname,       I     vname,
656       I     niat,       I     iname,
657       I     inames,       I     ival,
      I     ivals,  
658       I     myThid )       I     myThid )
659    
660  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 666  C     !USES: Line 663  C     !USES:
663        implicit none        implicit none
664    
665  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
666        integer myThid, niat        integer myThid
667        character*(*) vname, inames(*)        character*(*) vname, iname
668        integer ivals(*)        integer ival
669  CEOP  CEOP
670    
671        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
672       &     0, niat, 0,       &     ' ', iname, ' ',
673       &     ' ', inames, ' ',       &     ' ', ival, 0.0D0, myThid )
      &     ' ', ivals, 0.0D0, myThid )  
674    
675        RETURN        RETURN
676        END        END
# Line 686  C !ROUTINE: MNC_CW_ADD_VATTR_DBL Line 682  C !ROUTINE: MNC_CW_ADD_VATTR_DBL
682  C !INTERFACE:  C !INTERFACE:
683        SUBROUTINE MNC_CW_ADD_VATTR_DBL(        SUBROUTINE MNC_CW_ADD_VATTR_DBL(
684       I     vname,       I     vname,
685       I     ndat,       I     dname,
686       I     dnames,       I     dval,
      I     dvals,  
687       I     myThid )       I     myThid )
688    
689  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 697  C     !USES: Line 692  C     !USES:
692        implicit none        implicit none
693    
694  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
695        integer myThid, ndat        integer myThid
696        character*(*) vname, dnames(*)        character*(*) vname, dname
697        REAL*8 dvals(*)        REAL*8 dval
698  CEOP  CEOP
699    
700        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
701       &     0, 0, ndat,       &     ' ', ' ', dname,
702       &     ' ', ' ', dnames,       &     ' ', 0, dval, myThid )
      &     ' ', 0, dvals, myThid )  
703    
704        RETURN        RETURN
705        END        END
# Line 717  C     !ROUTINE: MNC_CW_ADD_VATTR_ANY Line 711  C     !ROUTINE: MNC_CW_ADD_VATTR_ANY
711  C     !INTERFACE:  C     !INTERFACE:
712        SUBROUTINE MNC_CW_ADD_VATTR_ANY(        SUBROUTINE MNC_CW_ADD_VATTR_ANY(
713       I     vname,       I     vname,
714       I     ntat,   niat,   ndat,       I     tname, iname, dname,
715       I     tnames, inames, dnames,       I     tval,  ival,  dval,
      I     tvals,  ivals,  dvals,  
716       I     myThid )       I     myThid )
717    
718  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 730  C     !USES: Line 723  C     !USES:
723  #include "EEPARAMS.h"  #include "EEPARAMS.h"
724    
725  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
726        integer myThid, ntat, niat, ndat        integer myThid
727        character*(*) vname        character*(*) vname
728        character*(*) tnames(*), inames(*), dnames(*)        character*(*) tname, iname, dname
729        character*(*) tvals(*)        character*(*) tval
730        integer ivals(*)        integer ival
731        REAL*8 dvals(*)        REAL*8 dval
732  CEOP  CEOP
733    
734  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
735        integer i, n, nvf,nvl, n1,n2, indv        integer n, nvf,nvl, n1,n2, indv
736        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
737    
738  C     Functions  C     Functions
# Line 759  C     Check that vname is defined Line 752  C     Check that vname is defined
752    
753  C     Text Attributes  C     Text Attributes
754        n = mnc_cw_vnat(1,indv)        n = mnc_cw_vnat(1,indv)
755        DO i = 1,ntat        n1 = IFNBLNK(tname)
756          n1 = IFNBLNK(tnames(i))        n2 = ILNBLNK(tname)
757          n2 = ILNBLNK(tnames(i))        mnc_cw_vtnm(n+1,indv)(1:MNC_MAX_CHAR) =
758          mnc_cw_vtnm(n+i,indv)(1:MNC_MAX_CHAR) =       &     mnc_blank_name(1:MNC_MAX_CHAR)
759       &       mnc_blank_name(1:MNC_MAX_CHAR)        mnc_cw_vtnm(n+1,indv)(1:(n2-n1+1)) = tname(n1:n2)
760          mnc_cw_vtnm(n+i,indv)(1:(n2-n1+1)) = tnames(i)(n1:n2)        n1 = IFNBLNK(tval)
761          n1 = IFNBLNK(tvals(i))        n2 = ILNBLNK(tval)
762          n2 = ILNBLNK(tvals(i))        mnc_cw_vtat(n+1,indv)(1:MNC_MAX_CHAR) =
         mnc_cw_vtat(n+i,indv)(1:MNC_MAX_CHAR) =  
763       &       mnc_blank_name(1:MNC_MAX_CHAR)       &       mnc_blank_name(1:MNC_MAX_CHAR)
764          mnc_cw_vtat(n+i,indv)(1:(n2-n1+1)) = tvals(i)(n1:n2)        mnc_cw_vtat(n+1,indv)(1:(n2-n1+1)) = tval(n1:n2)
765        ENDDO        mnc_cw_vnat(1,indv) = n + 1
766        mnc_cw_vnat(1,indv) = n + ntat        
   
767  C     Integer Attributes  C     Integer Attributes
768        n = mnc_cw_vnat(2,indv)        n = mnc_cw_vnat(2,indv)
769        DO i = 1,niat        n1 = IFNBLNK(iname)
770          n1 = IFNBLNK(inames(i))        n2 = ILNBLNK(iname)
771          n2 = ILNBLNK(inames(i))        mnc_cw_vinm(n+1,indv)(1:(n2-n1+1)) = iname(n1:n2)
772          mnc_cw_vinm(n+i,indv)(1:(n2-n1+1)) = inames(i)(n1:n2)        mnc_cw_viat(n+1,indv) = ival
773          mnc_cw_viat(n+i,indv) = ivals(i)        mnc_cw_vnat(2,indv) = n + 1
       ENDDO  
       mnc_cw_vnat(2,indv) = n + niat  
774    
775  C     Double Attributes  C     Double Attributes
776        n = mnc_cw_vnat(3,indv)        n = mnc_cw_vnat(3,indv)
777        DO i = 1,ndat        n1 = IFNBLNK(dname)
778          n1 = IFNBLNK(dnames(i))        n2 = ILNBLNK(dname)
779          n2 = ILNBLNK(dnames(i))        mnc_cw_vdnm(n+1,indv)(1:(n2-n1+1)) = dname(n1:n2)
780          mnc_cw_vdnm(n+i,indv)(1:(n2-n1+1)) = dnames(i)(n1:n2)        mnc_cw_vdat(n+1,indv) = dval
781          mnc_cw_vdat(n+i,indv) = dvals(i)        mnc_cw_vnat(3,indv) = n + 1
782        ENDDO        
       mnc_cw_vnat(3,indv) = n + ndat  
   
783        RETURN        RETURN
784        END        END
785    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22