libsim  Versione6.3.0

◆ volgrid6d_delete()

subroutine volgrid6d_class::volgrid6d_delete ( type(volgrid6d), intent(inout)  this)
private

Destructor, it releases every information and memory buffer associated with the object.

It should be called also for objects crated through the import interface.

Definizione alla linea 769 del file volgrid6d_class.F90.

769 call read_unit( this%griddim,lunit)
770 read(unit=lunit) ntime, ntimerange, nlevel, nvar
771 
772 
773 call volgrid6d_alloc (this, &
774  ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
775 
776 call volgrid6d_alloc_vol (this)
777 
778 if (associated(this%time)) call read_unit(this%time, lunit)
779 if (associated(this%level)) read(unit=lunit)this%level
780 if (associated(this%timerange)) read(unit=lunit)this%timerange
781 if (associated(this%var)) read(unit=lunit)this%var
782 
783 
784 !! Volumi di valori
785 
786 if (associated(this%voldati)) read(unit=lunit)this%voldati
787 
788 if (.not. present(unit)) close(unit=lunit)
789 
790 end subroutine volgrid6d_read_from_file
791 
792 
Legge un oggetto datetime/timedelta o un vettore di oggetti datetime/timedelta da un file FORMATTED o...

Generated with Doxygen.