libsim Versione 7.2.6

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

753 lfilename=filename
754 end if
755end if
756
757if (present(filename_auto))filename_auto=lfilename
758
759
760inquire(unit=lunit,opened=opened)
761if (.not. opened) then
762 inquire(file=lfilename,exist=exist)
763 IF (.NOT. exist) CALL raise_fatal_error('file '//trim(lfilename)//' does not exist, cannot open')
764 open (unit=lunit,file=lfilename,form="UNFORMATTED")
765end if
766
767read(unit=lunit)ldescription
768read(unit=lunit)ltarray
769
770call l4f_log(l4f_info,"Info: reading volgrid6d from file: "//trim(lfilename))
771call l4f_log(l4f_info,"Info: description: "//trim(ldescription))
772!call l4f_log("Info: written on ",ltarray)
773
774if (present(description))description=ldescription
775if (present(tarray))tarray=ltarray
776
777
778call read_unit( this%griddim,lunit)
779read(unit=lunit) ntime, ntimerange, nlevel, nvar
780
781
782call volgrid6d_alloc (this, &
783 ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar)
784
785call volgrid6d_alloc_vol (this)
786
787if (associated(this%time)) call read_unit(this%time, lunit)
788if (associated(this%level)) read(unit=lunit)this%level
789if (associated(this%timerange)) read(unit=lunit)this%timerange
790if (associated(this%var)) read(unit=lunit)this%var
791
792
793!! Volumi di valori

Generated with Doxygen.