libsim  Versione6.3.0

◆ 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]thisoggetto da distruggere
[in]dataonlydealloca solo i dati, tenendo l'anagrafica, (default .FALSE.)

Definizione alla linea 568 del file vol7d_class.F90.

568 print*,"-- ana data section (first point) --"
569 
570 idat=imiss
571 rdat=rmiss
572 ddat=dmiss
573 bdat=ibmiss
574 cdat=cmiss
575 
576 !ntime = MIN(SIZE(this%time),nprint)
577 !ntimerange = MIN(SIZE(this%timerange),nprint)
578 !nlevel = MIN(SIZE(this%level),nprint)
579 !nnetwork = MIN(SIZE(this%network),nprint)
580 !nana = MIN(SIZE(this%ana),nprint)
581 
582 IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN
583 if (associated(this%volanai)) then
584  do i=1,size(this%anavar%i)
585  idat=this%volanai(1,i,1)
586  if (associated(this%anavar%i)) call display(this%anavar%i(i),idat,rdat,ddat,bdat,cdat)
587  end do
588 end if
589 idat=imiss
590 
591 if (associated(this%volanar)) then
592  do i=1,size(this%anavar%r)
593  rdat=this%volanar(1,i,1)
594  if (associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)
595  end do
596 end if
597 rdat=rmiss
598 
599 if (associated(this%volanad)) then
600  do i=1,size(this%anavar%d)
601  ddat=this%volanad(1,i,1)
602  if (associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat)
603  end do
604 end if
605 ddat=dmiss
606 
607 if (associated(this%volanab)) then
608  do i=1,size(this%anavar%b)
609  bdat=this%volanab(1,i,1)
610  if (associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat)
611  end do

Generated with Doxygen.