libsim Versione 7.2.4

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

741 lfilename=filename
742 end if
743end if
744
745if (present(filename_auto))filename_auto=lfilename
746
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

Generated with Doxygen.