|
libsim Versione 8.0.0
|
◆ volgrid_get_vol_2d()
Return a 2-d pointer to a x-y slice of a volume. This method works both with volumes having allocated and non-allocated thisvoldati array, and it returns a pointer to a 2-d slice either from the allocated thisvoldati array or from the grid_id object on file or in memory. In the second case the pointer should be either ALLOCATE'd to the expected size or NULLIFY'ed, and if NULLIFY'ed, it is allocated within the method, thus it will have to be deallocated by the caller when not in use anymore. Since this method may be called many times by a program, it is optimized for speed and it does not make any check about the matching size of the pointer and the array or about the allocation status of this, so it should be called only when everything has been checked to be in good shape.
Definizione alla linea 616 del file volgrid6d_class.F90. 617!! Il file puo' essere aperto opzionalmente dall'utente. Si possono passare
618!! opzionalmente unità e nome del file altrimenti assegnati internamente a dei default; se assegnati internamente
619!! tali parametri saranno in output.
620!! Se non viene fornito il nome file viene utilizzato un file di default con nome pari al nome del programma in
621!! esecuzione con postfisso ".vg6d".
622!! Come parametro opzionale c'è la description che insieme alla data corrente viene inserita nell'header del file.
623subroutine volgrid6d_write_on_file (this,unit,description,filename,filename_auto)
624
625TYPE(volgrid6d),INTENT(IN) :: this !< volume volgrid6d da scrivere
626integer,optional,intent(inout) :: unit !< unità su cui scrivere; se passata =0 ritorna il valore rielaborato (default =rielaborato internamente con getlun )
627character(len=*),intent(in),optional :: filename !< nome del file su cui scrivere
628character(len=*),intent(out),optional :: filename_auto !< nome del file generato se "filename" è omesso
629character(len=*),INTENT(IN),optional :: description !< descrizione del volume
630
631integer :: lunit
632character(len=254) :: ldescription,arg,lfilename
633integer :: ntime, ntimerange, nlevel, nvar
|