display_volgrid6d display_volgrid6dv export_to_gridinfo export_to_gridinfov export_to_gridinfovv import_from_gridinfo import_from_gridinfovv v7d_v7d_transform v7d_volgrid6d_transform vg6d_c2a vg6d_reduce vg6d_rounding vg6d_wind_rot vg6d_wind_unrot vg6dv_rounding volgrid6d_alloc volgrid6d_alloc_vol volgrid6d_delete volgrid6d_export_to_file volgrid6d_import_from_file volgrid6d_init volgrid6d_read_from_file volgrid6d_transform volgrid6d_v7d_transform volgrid6d_v7d_transform_compute volgrid6d_write_on_file volgrid6dv_delete volgrid6dv_transform volgrid6dv_v7d_transform volgrid_get_vol_2d volgrid_get_vol_3d volgrid_set_vol_2d volgrid_set_vol_3d

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 531 del file volgrid6d_class.F90. !! slice. In case \a this%voldati is already allocated, this is a !! no-operation while in the other case this method encodes the field !! provided into the grid_id object on file or in memory. 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 !! field and the array or about the allocation status of \a this, so !! it should be called only when everything has been checked to be in !! good shape. SUBROUTINE volgrid_set_vol_3d(this, itime, itimerange, ivar, voldati) TYPE(volgrid6d),INTENT(inout) :: this INTEGER,INTENT(in) :: itime INTEGER,INTENT(in) :: itimerange INTEGER,INTENT(in) :: ivar REAL,INTENT(in) :: voldati(:,:,:) INTEGER :: ilevel IF (ASSOCIATED(this%voldati)) THEN RETURN ELSE !$OMP PARALLEL DEFAULT(SHARED) !$OMP MASTER DO ilevel = 1, SIZE(this%level) !$OMP TASK FIRSTPRIVATE(ilevel) CALL grid_id_encode_data(this%gaid(ilevel,itime,itimerange,ivar), & voldati(:,:,ilevel)) !$OMP END TASK ENDDO !$OMP END MASTER !$OMP END PARALLEL ENDIF END SUBROUTINE volgrid_set_vol_3d SUBROUTINE volgrid6d_delete(this) TYPE(volgrid6d),INTENT(inout) :: this INTEGER :: i, ii, iii, iiii #ifdef DEBUG call l4f_category_log(this%category,l4f_debug,"delete") #endif if (associated(this%gaid))then DO i=1 ,SIZE(this%gaid,1) DO ii=1 ,SIZE(this%gaid,2) DO iii=1 ,SIZE(this%gaid,3) DO iiii=1 ,SIZE(this%gaid,4) CALL delete(this%gaid(i,ii,iii,iiii)) ENDDO ENDDO ENDDO ENDDO DEALLOCATE(this%gaid) end if call delete(this%griddim) ! call delete(this%time) ! call delete(this%timerange) ! call delete(this%level) ! call delete(this%var) if (associated( this%time )) deallocate(this%time) if (associated( this%timerange )) deallocate(this%timerange) if (associated( this%level )) deallocate(this%level) if (associated( this%var )) deallocate(this%var) if (associated(this%voldati))deallocate(this%voldati) !chiudo il logger call l4f_category_delete(this%category)