libsim  Versione 7.1.8

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