Destructor, it releases every information and memory buffer associated with the object.
748 inquire(unit=lunit,opened=opened)
749 if (.not. opened)
then
750 inquire(file=lfilename,exist=exist)
751 IF (.NOT. exist)
CALL raise_fatal_error(
'file '//trim(lfilename)//
' does not exist, cannot open')
752 open (unit=lunit,file=lfilename,form=
"UNFORMATTED")
755 read(unit=lunit)ldescription
756 read(unit=lunit)ltarray
758 call l4f_log(l4f_info,
"Info: reading volgrid6d from file: "//trim(lfilename))
759 call l4f_log(l4f_info,
"Info: description: "//trim(ldescription))
762 if (
present(description))description=ldescription
763 if (
present(tarray))tarray=ltarray
766 call read_unit( this%griddim,lunit)
767 read(unit=lunit) ntime, ntimerange, nlevel, nvar
770 call volgrid6d_alloc (this, &
771 ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
773 call volgrid6d_alloc_vol (this)
775 if (
associated(this%time))
call read_unit(this%time, lunit)
776 if (
associated(this%level))
read(unit=lunit)this%level
777 if (
associated(this%timerange))
read(unit=lunit)this%timerange
778 if (
associated(this%var))
read(unit=lunit)this%var
783 if (
associated(this%voldati))
read(unit=lunit)this%voldati
785 if (.not.
present(unit))
close(unit=lunit)
787 end subroutine volgrid6d_read_from_file