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

display_volgrid6d() subroutine volgrid6d_class::display_volgrid6d ( type(volgrid6d), intent(in)  this ) private Display object on screen. Show brief content on screen. Parametri [in] this object to display Definizione alla linea 3508 del file volgrid6d_class.F90. nlevel=count_distinct(roundlevel,back=.true.) ntime=size(vg6din%time) ntimerange=count_distinct(roundtimerange,back=.true.) nvar=size(vg6din%var) call init(vg6dout, vg6din%griddim, vg6din%time_definition, categoryappend="generated by vg6d_reduce") call volgrid6d_alloc(vg6dout, vg6din%griddim%dim, ntime, nlevel, ntimerange, nvar) if ( ASSOCIATED(vg6din%voldati) .or. optio_log(merge)) then call volgrid6d_alloc_vol(vg6dout,inivol=.true.,decode=.true.) allocate(vol2d(nx,ny)) else call volgrid6d_alloc_vol(vg6dout,inivol=.true.,decode=.false.) end if vg6dout%time=vg6din%time vg6dout%var=vg6din%var vg6dout%timerange=pack_distinct(roundtimerange,ntimerange,back=.true.) vg6dout%level=pack_distinct(roundlevel,nlevel,back=.true.) ! sort modified dimensions CALL sort(vg6dout%timerange) CALL sort(vg6dout%level) do ilevel=1,size(vg6din%level) indl=index(vg6dout%level,roundlevel(ilevel)) do itimerange=1,size(vg6din%timerange) indt=index(vg6dout%timerange,roundtimerange(itimerange)) do ivar=1, nvar do itime=1,ntime if ( ASSOCIATED(vg6din%voldati)) then vol2d=vg6din%voldati(:,:,ilevel,itime,itimerange,ivar) end if if (optio_log(merge)) then if ( .not. ASSOCIATED(vg6din%voldati)) then CALL grid_id_decode_data(vg6din%gaid(ilevel,itime,itimerange,ivar), vol2d) end if !! merge present data point by point where (.not. c_e(vg6dout%voldati(:,:,indl,itime,indt,ivar))) vg6dout%voldati(:,:,indl,itime,indt,ivar)=vol2d end where else if ( ASSOCIATED(vg6din%voldati)) then if (.not. any(c_e(vg6dout%voldati(:,:,indl,itime,indt,ivar))))then vg6dout%voldati(:,:,indl,itime,indt,ivar)=vol2d end if end if