libsim  Versione7.2.6

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

763  IF (.NOT. exist) CALL raise_fatal_error('file '//trim(lfilename)//' does not exist, cannot open')
764  open (unit=lunit,file=lfilename,form="UNFORMATTED")
765 end if
766 
767 read(unit=lunit)ldescription
768 read(unit=lunit)ltarray
769 
770 call l4f_log(l4f_info,"Info: reading volgrid6d from file: "//trim(lfilename))
771 call l4f_log(l4f_info,"Info: description: "//trim(ldescription))
772 !call l4f_log("Info: written on ",ltarray)
773 
774 if (present(description))description=ldescription
775 if (present(tarray))tarray=ltarray
776 
777 
778 call read_unit( this%griddim,lunit)
779 read(unit=lunit) ntime, ntimerange, nlevel, nvar
780 
781 
782 call volgrid6d_alloc (this, &
783  ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
784 
785 call volgrid6d_alloc_vol (this)
786 
787 if (associated(this%time)) call read_unit(this%time, lunit)
788 if (associated(this%level)) read(unit=lunit)this%level
789 if (associated(this%timerange)) read(unit=lunit)this%timerange
790 if (associated(this%var)) read(unit=lunit)this%var
791 
792 
793 !! Volumi di valori
794 
795 if (associated(this%voldati)) read(unit=lunit)this%voldati
796 
797 if (.not. present(unit)) close(unit=lunit)
798 
799 end subroutine volgrid6d_read_from_file
800 
801 

Generated with Doxygen.