|
◆ volgrid6d_alloc_vol()
subroutine, public volgrid6d_class::volgrid6d_alloc_vol |
( |
type(volgrid6d), intent(inout) |
this, |
|
|
logical, intent(in), optional |
ini, |
|
|
logical, intent(in), optional |
inivol, |
|
|
logical, intent(in), optional |
decode |
|
) |
| |
Allocate the data array of the volgrid6d object.
This method allocates the main 6-dimensional data array thisvoldati and the 4-dimensional grid_id array thisgaid with a shape dictated by the previous call(s) to vol7d_alloc(). if any descriptor (except horizontal grid) has not been allocated yet, it is allocated here with a size of 1. This method should be explicitly used only in rare cases, it is usually called implicitly through the import interface.
- Parametri
-
[in,out] | this | object whose decriptors should be allocated |
[in] | ini | if provided and .TRUE., for each dimension descriptor not yet allocated and allocated here the constructor is called without extra parameters, thus initializing the element as missing value |
[in] | inivol | if provided and .FALSE., the allocated volumes will not be initialized to missing values |
[in] | decode | if provided and .TRUE., the thisvoldati volume is allocated, otherwise only thisgaid will be allocated |
Definizione alla linea 551 del file volgrid6d_class.F90.
555 SUBROUTINE volgrid6d_delete(this) 556 TYPE(volgrid6d), INTENT(inout) :: this 558 INTEGER :: i, ii, iii, iiii 561 call l4f_category_log(this%category,l4f_debug, "delete") 564 if ( associated(this%gaid)) then 566 DO i=1 , SIZE(this%gaid,1) 567 DO ii=1 , SIZE(this%gaid,2) 568 DO iii=1 , SIZE(this%gaid,3) 569 DO iiii=1 , SIZE(this%gaid,4) 570 CALL delete(this%gaid(i,ii,iii,iiii)) 575 DEALLOCATE(this%gaid) 586 if ( associated( this%time )) deallocate(this%time) 587 if ( associated( this%timerange )) deallocate(this%timerange) 588 if ( associated( this%level )) deallocate(this%level) 589 if ( associated( this%var )) deallocate(this%var) 591 if ( associated(this%voldati)) deallocate(this%voldati) 595 call l4f_category_delete(this%category) 597 END SUBROUTINE volgrid6d_delete 609 subroutine volgrid6d_write_on_file (this,unit,description,filename,filename_auto) 611 TYPE(volgrid6d), INTENT(IN) :: this 612 integer, optional, intent(inout) :: unit 613 character(len=*), intent(in), optional :: filename 614 character(len=*), intent(out), optional :: filename_auto 615 character(len=*), INTENT(IN), optional :: description 618 character(len=254) :: ldescription,arg,lfilename 619 integer :: ntime, ntimerange, nlevel, nvar 621 logical :: opened,exist 624 call l4f_category_log(this%category,l4f_debug, "write on file") Distruttori per le 2 classi.
|