|
◆ 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 533 del file volgrid6d_class.F90.
534 SUBROUTINE volgrid_set_vol_3d(this, itime, itimerange, ivar, voldati) 535 TYPE(volgrid6d), INTENT(inout) :: this 536 INTEGER, INTENT(in) :: itime 537 INTEGER, INTENT(in) :: itimerange 538 INTEGER, INTENT(in) :: ivar 539 REAL, INTENT(in) :: voldati(:,:,:) 543 IF ( ASSOCIATED(this%voldati)) THEN 548 DO ilevel = 1, SIZE(this%level) 550 CALL grid_id_encode_data(this%gaid(ilevel,itime,itimerange,ivar), & 558 END SUBROUTINE volgrid_set_vol_3d 564 SUBROUTINE volgrid6d_delete(this) 565 TYPE(volgrid6d), INTENT(inout) :: this 567 INTEGER :: i, ii, iii, iiii 570 call l4f_category_log(this%category,l4f_debug, "delete") 573 if ( associated(this%gaid)) then 575 DO i=1 , SIZE(this%gaid,1) 576 DO ii=1 , SIZE(this%gaid,2) 577 DO iii=1 , SIZE(this%gaid,3) 578 DO iiii=1 , SIZE(this%gaid,4) 579 CALL delete(this%gaid(i,ii,iii,iiii)) 584 DEALLOCATE(this%gaid) 588 call delete(this%griddim) 595 if ( associated( this%time )) deallocate(this%time) 596 if ( associated( this%timerange )) deallocate(this%timerange) 597 if ( associated( this%level )) deallocate(this%level) 598 if ( associated( this%var )) deallocate(this%var) 600 if ( associated(this%voldati)) deallocate(this%voldati) 604 call l4f_category_delete(this%category) 606 END SUBROUTINE volgrid6d_delete
|