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