libsim  Versione6.3.0

◆ vol7d_check()

integer function vol7d_check ( type(vol7d), intent(in)  this)
Parametri
[in]thisobject to check

Definizione alla linea 617 del file vol7d_class.F90.

617  cdat=this%volanac(1,i,1)
618  if (associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat)
619  end do
620 end if
621 cdat=cmiss
622 ENDIF
623 
624 print*,"---- data vector ----"
625 print*,""
626 print*,"->>>>>>>>> dativar -"
627 call display(this%dativar)
628 print*,""
629 print*,"->>>>>>>>> datiattr -"
630 call display(this%datiattr)
631 print*,""
632 print*,"->>>>>>>>> dativarattr -"
633 call display(this%dativarattr)
634 
635 print*,"-- data data section (first point) --"
636 
637 idat=imiss
638 rdat=rmiss
639 ddat=dmiss
640 bdat=ibmiss
641 cdat=cmiss
642 
643 IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 &
644  .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN
645 if (associated(this%voldatii)) then
646  do i=1,size(this%dativar%i)
647  idat=this%voldatii(1,1,1,1,i,1)
648  if (associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat)
649  end do
650 end if
651 idat=imiss
652 
653 if (associated(this%voldatir)) then
654  do i=1,size(this%dativar%r)
655  rdat=this%voldatir(1,1,1,1,i,1)
656  if (associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat)
657  end do
658 end if
659 rdat=rmiss
660 
661 if (associated(this%voldatid)) then
662  do i=1,size(this%dativar%d)
663  ddat=this%voldatid(1,1,1,1,i,1)
664  if (associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat)
665  end do
666 end if
667 ddat=dmiss
668 
669 if (associated(this%voldatib)) then
670  do i=1,size(this%dativar%b)
671  bdat=this%voldatib(1,1,1,1,i,1)
672  if (associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat)
673  end do
674 end if
675 bdat=ibmiss
676 
677 if (associated(this%voldatic)) then
678  do i=1,size(this%dativar%c)
679  cdat=this%voldatic(1,1,1,1,i,1)
680  if (associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat)
681  end do
682 end if
683 cdat=cmiss
684 ENDIF
685 
686 print*,"<<<<<<<<<<<<<<<<<<< END vol7d object >>>>>>>>>>>>>>>>>>>>"
687 
688 END SUBROUTINE vol7d_display
689 
690 
692 SUBROUTINE dat_display(this,idat,rdat,ddat,bdat,cdat)
693 TYPE(vol7d_var),intent(in) :: this
695 REAL :: rdat
697 DOUBLE PRECISION :: ddat
699 INTEGER :: idat
701 INTEGER(kind=int_b) :: bdat

Generated with Doxygen.