◆ vol7d_check()

integer function vol7d_check ( type(vol7d), intent(in) this )
Parametri
[in] this object to check
Definizione alla linea 602 del file vol7d_class.F90.
   do i=1,size(this%anavar%d)
     ddat=this%volanad(1,i,1)
     if (associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 ddat=dmiss
 
 if (associated(this%volanab)) then
   do i=1,size(this%anavar%b)
     bdat=this%volanab(1,i,1)
     if (associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 bdat=ibmiss
 
 if (associated(this%volanac)) then
   do i=1,size(this%anavar%c)
     cdat=this%volanac(1,i,1)
     if (associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 cdat=cmiss
 ENDIF
 
 print*,"---- data vector ----"
 print*,""
 print*,"->>>>>>>>> dativar -"
 call display(this%dativar)
 print*,""
 print*,"->>>>>>>>> datiattr -"
 call display(this%datiattr)
 print*,""
 print*,"->>>>>>>>> dativarattr -"
 call display(this%dativarattr)
 
 print*,"-- data data section (first point) --"
 
 idat=imiss
 rdat=rmiss
 ddat=dmiss
 bdat=ibmiss
 cdat=cmiss
 
 IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 &
  .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN
 if (associated(this%voldatii)) then
   do i=1,size(this%dativar%i)
     idat=this%voldatii(1,1,1,1,i,1)
     if (associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 idat=imiss
 
 if (associated(this%voldatir)) then
   do i=1,size(this%dativar%r)
     rdat=this%voldatir(1,1,1,1,i,1)
     if (associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 rdat=rmiss
 
 if (associated(this%voldatid)) then
   do i=1,size(this%dativar%d)
     ddat=this%voldatid(1,1,1,1,i,1)
     if (associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 ddat=dmiss
 
 if (associated(this%voldatib)) then
   do i=1,size(this%dativar%b)
     bdat=this%voldatib(1,1,1,1,i,1)
     if (associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 bdat=ibmiss
 
 if (associated(this%voldatic)) then
   do i=1,size(this%dativar%c)
     cdat=this%voldatic(1,1,1,1,i,1)
     if (associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat)
   end do
 end if
 cdat=cmiss
 ENDIF
 