◆ vol7d_delete()

elemental subroutine vol7d_delete	(	type(vol7d), intent(inout)	this,
		logical, intent(in), optional	dataonly )

Distrugge l'oggetto in maniera pulita, liberando l'eventuale memoria dinamicamente allocata.

Permette di distruggere la sola parte di dati mantenendo l'anagrafica.

Parametri

[in,out]	this	oggetto da distruggere
[in]	dataonly	dealloca solo i dati, tenendo l'anagrafica, (default .FALSE.)

Definizione alla linea 542 del file vol7d_class.F90.

  print*,"---- level vector ----"
  print*,"elements=",size(this%level)
  do i =1,size(this%level)
    call display(this%level(i))
  end do
end if
 
IF (ASSOCIATED(this%timerange))then
  print*,"---- timerange vector ----"
  print*,"elements=",size(this%timerange)
  do i =1,size(this%timerange)
    call display(this%timerange(i))
  end do
end if
 
 
print*,"---- ana vector ----"
print*,""
print*,"->>>>>>>>> anavar -"
call display(this%anavar)
print*,""
print*,"->>>>>>>>> anaattr -"
call display(this%anaattr)
print*,""
print*,"->>>>>>>>> anavarattr -"
call display(this%anavarattr)
 
print*,"-- ana data section (first point) --"
 
idat=imiss
rdat=rmiss
ddat=dmiss
bdat=ibmiss
cdat=cmiss
 
!ntime = MIN(SIZE(this%time),nprint)
!ntimerange = MIN(SIZE(this%timerange),nprint)
!nlevel = MIN(SIZE(this%level),nprint)
!nnetwork = MIN(SIZE(this%network),nprint)
!nana = MIN(SIZE(this%ana),nprint)
 
IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN
if (associated(this%volanai)) then
  do i=1,size(this%anavar%i)