◆ vol7d_check()

integer function vol7d_check ( type(vol7d), intent(in) this )
Parametri
[in] this object to check
Definizione alla linea 591 del file vol7d_class.F90.
 
if (associated(this%volanar)) then
  do i=1,size(this%anavar%r)
    rdat=this%volanar(1,i,1)
    if (associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)
  end do
end if
rdat=rmiss
 
if (associated(this%volanad)) then
  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