|
◆ 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 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") 767 read(unit=lunit)ldescription 768 read(unit=lunit)ltarray 770 call l4f_log(l4f_info, "Info: reading volgrid6d from file: "//trim(lfilename)) 771 call l4f_log(l4f_info, "Info: description: "//trim(ldescription)) 774 if ( present(description))description=ldescription 775 if ( present(tarray))tarray=ltarray 778 call read_unit( this%griddim,lunit) 779 read(unit=lunit) ntime, ntimerange, nlevel, nvar 782 call volgrid6d_alloc (this, & 783 ntime=ntime, ntimerange=ntimerange, nlevel=nlevel, nvar=nvar) 785 call volgrid6d_alloc_vol (this) 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 795 if ( associated(this%voldati)) read(unit=lunit)this%voldati 797 if (.not. present(unit)) close(unit=lunit) 799 end subroutine volgrid6d_read_from_file
|