libsim  Versione 7.1.9

◆ vol7d_check()

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

Definizione alla linea 598 del file vol7d_class.F90.

599 
600 if (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
605 end if
606 ddat=dmiss
607 
608 if (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
613 end if
614 bdat=ibmiss
615 
616 if (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
621 end if
622 cdat=cmiss
623 ENDIF
624 
625 print*,"---- data vector ----"
626 print*,""
627 print*,"->>>>>>>>> dativar -"
628 call display(this%dativar)
629 print*,""
630 print*,"->>>>>>>>> datiattr -"
631 call display(this%datiattr)
632 print*,""
633 print*,"->>>>>>>>> dativarattr -"
634 call display(this%dativarattr)
635 
636 print*,"-- data data section (first point) --"
637 
638 idat=imiss
639 rdat=rmiss
640 ddat=dmiss
641 bdat=ibmiss
642 cdat=cmiss
643 
644 IF (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
646 if (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
651 end if
652 idat=imiss
653 
654 if (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
659 end if
660 rdat=rmiss
661 
662 if (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
667 end if
668 ddat=dmiss
669 
670 if (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
675 end if
676 bdat=ibmiss
677 
678 if (associated(this%voldatic)) then
679  do i=1,size(this%dativar%c)
680  cdat=this%voldatic(1,1,1,1,i,1)
681  if (associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat)
682  end do
683 end if
684 cdat=cmiss

Generated with Doxygen.