libsim Versione 7.1.11

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

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

Generated with Doxygen.