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() subroutine, public volgrid6d_class::volgrid6d_alloc ( type(volgrid6d), intent(inout)  this, type(grid_dim), intent(in), optional  dim, integer, intent(in), optional  ntime, integer, intent(in), optional  nlevel, integer, intent(in), optional  ntimerange, integer, intent(in), optional  nvar, logical, intent(in), optional  ini  ) Allocate the dimension descriptors of the volgrid6d object. This method allocates the horizontal grid descriptor and the one dimensional arrays of the dimensions time vertical level timerange physical variable 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] dim horizontal grid size X, Y [in] ntime number of time levels [in] nlevel number of vertical levels [in] ntimerange number of different timeranges [in] nvar number of physical variables [in] ini if provided and .TRUE., for each allocated dimension descriptor the constructor is called without extra parameters, thus initializing everything as missing value Definizione alla linea 419 del file volgrid6d_class.F90. !! 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 \a this, so !! it should be called only when everything has been checked to be in !! good shape. SUBROUTINE volgrid_get_vol_2d(this, ilevel, itime, itimerange, ivar, voldati) TYPE(volgrid6d),INTENT(in) :: this INTEGER,INTENT(in) :: ilevel INTEGER,INTENT(in) :: itime INTEGER,INTENT(in) :: itimerange INTEGER,INTENT(in) :: ivar REAL,POINTER :: voldati(:,:) IF (ASSOCIATED(this%voldati)) THEN voldati => this%voldati(:,:,ilevel,itime,itimerange,ivar) RETURN ELSE IF (.NOT.ASSOCIATED(voldati)) THEN ALLOCATE(voldati(this%griddim%dim%nx,this%griddim%dim%ny)) ENDIF CALL grid_id_decode_data(this%gaid(ilevel,itime,itimerange,ivar), voldati) ENDIF END SUBROUTINE volgrid_get_vol_2d SUBROUTINE volgrid_get_vol_3d(this, itime, itimerange, ivar, voldati, zlist) TYPE(volgrid6d),INTENT(in) :: this INTEGER,INTENT(in) :: itime INTEGER,INTENT(in) :: itimerange INTEGER,INTENT(in) :: ivar REAL,POINTER :: voldati(:,:,:) LOGICAL,OPTIONAL,INTENT(out),ALLOCATABLE :: zlist(:) INTEGER :: ilevel LOGICAL :: done IF (ASSOCIATED(this%voldati)) THEN voldati => this%voldati(:,:,:,itime,itimerange,ivar) IF (PRESENT(zlist)) zlist(:) = c_e(this%gaid(:,itime,itimerange,ivar)) RETURN ELSE IF (.NOT.ASSOCIATED(voldati)) THEN ALLOCATE(voldati(this%griddim%dim%nx,this%griddim%dim%ny,SIZE(this%level))) ENDIF IF (PRESENT(zlist)) THEN ALLOCATE(zlist(SIZE(this%level))) ENDIF !$OMP PARALLEL DEFAULT(SHARED) !$OMP MASTER DO ilevel = 1, SIZE(this%level) !$OMP TASK FIRSTPRIVATE(ilevel),PRIVATE(done) CALL grid_id_decode_data(this%gaid(ilevel,itime,itimerange,ivar), & voldati(:,:,ilevel),done) IF (PRESENT(zlist)) zlist(ilevel) = done !$OMP END TASK ENDDO !$OMP END MASTER !$OMP END PARALLEL ENDIF END SUBROUTINE volgrid_get_vol_3d SUBROUTINE volgrid_set_vol_2d(this, ilevel, itime, itimerange, ivar, voldati) TYPE(volgrid6d),INTENT(inout) :: this INTEGER,INTENT(in) :: ilevel INTEGER,INTENT(in) :: itime INTEGER,INTENT(in) :: itimerange INTEGER,INTENT(in) :: ivar REAL,INTENT(in) :: voldati(:,:)