libsim  Versione6.3.0

◆ volgrid6d_delete()

subroutine volgrid6d_delete ( type(volgrid6d), intent(inout)  this)

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.