◆ volgrid6d_delete()

subroutine 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 757 del file volgrid6d_class.F90.

    lfilename=filename
  end if
end if
 
if (present(filename_auto))filename_auto=lfilename
 
 
inquire(unit=lunit,opened=opened)
if (.not. opened) then 
  inquire(file=lfilename,exist=exist)
  IF (.NOT. exist) CALL raise_fatal_error('file '//trim(lfilename)//' does not exist, cannot open')
  open (unit=lunit,file=lfilename,form="UNFORMATTED")
end if
 
read(unit=lunit)ldescription
read(unit=lunit)ltarray
 
call l4f_log(l4f_info,"Info: reading volgrid6d from file: "//trim(lfilename))
call l4f_log(l4f_info,"Info: description: "//trim(ldescription))
!call l4f_log("Info: written on ",ltarray)
 
if (present(description))description=ldescription
if (present(tarray))tarray=ltarray
 
 
call read_unit( this%griddim,lunit)
read(unit=lunit) ntime, ntimerange, nlevel, nvar
 
 
call volgrid6d_alloc (this, &
 ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
 
call volgrid6d_alloc_vol (this)
 
if (associated(this%time))      call read_unit(this%time, lunit)
if (associated(this%level))     read(unit=lunit)this%level
if (associated(this%timerange)) read(unit=lunit)this%timerange
if (associated(this%var))       read(unit=lunit)this%var    
 
 
!! Volumi di valori 