volgrid6d_delete volgrid6dv_delete

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 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