libsim Versione 7.2.6

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