libsim  Versione 7.1.8

◆ 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 746 del file volgrid6d_class.F90.

747 
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")
753 end if
754 
755 read(unit=lunit)ldescription
756 read(unit=lunit)ltarray
757 
758 call l4f_log(l4f_info,"Info: reading volgrid6d from file: "//trim(lfilename))
759 call l4f_log(l4f_info,"Info: description: "//trim(ldescription))
760 !call l4f_log("Info: written on ",ltarray)
761 
762 if (present(description))description=ldescription
763 if (present(tarray))tarray=ltarray
764 
765 
766 call read_unit( this%griddim,lunit)
767 read(unit=lunit) ntime, ntimerange, nlevel, nvar
768 
769 
770 call volgrid6d_alloc (this, &
771  ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
772 
773 call volgrid6d_alloc_vol (this)
774 
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
779 
780 
781 !! Volumi di valori
782 
783 if (associated(this%voldati)) read(unit=lunit)this%voldati
784 
785 if (.not. present(unit)) close(unit=lunit)
786 
787 end subroutine volgrid6d_read_from_file

Generated with Doxygen.