libsim Versione 7.2.4

◆ vol7d_check()

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

Definizione alla linea 592 del file vol7d_class.F90.

593 do i=1,size(this%anavar%r)
594 rdat=this%volanar(1,i,1)
595 if (associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)
596 end do
597end if
598rdat=rmiss
599
600if (associated(this%volanad)) then
601 do i=1,size(this%anavar%d)
602 ddat=this%volanad(1,i,1)
603 if (associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat)
604 end do
605end if
606ddat=dmiss
607
608if (associated(this%volanab)) then
609 do i=1,size(this%anavar%b)
610 bdat=this%volanab(1,i,1)
611 if (associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat)
612 end do
613end if
614bdat=ibmiss
615
616if (associated(this%volanac)) then
617 do i=1,size(this%anavar%c)
618 cdat=this%volanac(1,i,1)
619 if (associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat)
620 end do
621end if
622cdat=cmiss
623ENDIF
624
625print*,"---- data vector ----"
626print*,""
627print*,"->>>>>>>>> dativar -"
628call display(this%dativar)
629print*,""
630print*,"->>>>>>>>> datiattr -"
631call display(this%datiattr)
632print*,""
633print*,"->>>>>>>>> dativarattr -"
634call display(this%dativarattr)
635
636print*,"-- data data section (first point) --"
637
638idat=imiss
639rdat=rmiss
640ddat=dmiss
641bdat=ibmiss
642cdat=cmiss
643
644IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 &
645 .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN
646if (associated(this%voldatii)) then
647 do i=1,size(this%dativar%i)
648 idat=this%voldatii(1,1,1,1,i,1)
649 if (associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat)
650 end do
651end if
652idat=imiss
653
654if (associated(this%voldatir)) then
655 do i=1,size(this%dativar%r)
656 rdat=this%voldatir(1,1,1,1,i,1)
657 if (associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat)
658 end do
659end if
660rdat=rmiss
661
662if (associated(this%voldatid)) then
663 do i=1,size(this%dativar%d)
664 ddat=this%voldatid(1,1,1,1,i,1)
665 if (associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat)
666 end do
667end if
668ddat=dmiss
669
670if (associated(this%voldatib)) then
671 do i=1,size(this%dativar%b)
672 bdat=this%voldatib(1,1,1,1,i,1)
673 if (associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat)
674 end do
675end if
676bdat=ibmiss
677
678if (associated(this%voldatic)) then

Generated with Doxygen.