◆ display_volgrid6dv()

subroutine display_volgrid6dv ( type(volgrid6d), dimension(:), intent(in) this )

Display vector of object on screen.

Show brief content on screen.

Parametri

[in] this vector of object to display

Definizione alla linea 3556 del file volgrid6d_class.F90.

          end if
        end if
      
        if (c_e(vg6din%gaid(ilevel,itime,itimerange,ivar)).and. .not. c_e(vg6dout%gaid(indl,itime,indt,ivar)))then
          call copy (vg6din%gaid(ilevel,itime,itimerange,ivar), vg6dout%gaid(indl,itime,indt,ivar))
        end if
      end do
    end do
  end do
end do
 
if ( ASSOCIATED(vg6din%voldati) .or. optio_log(merge)) then          
  deallocate(vol2d)
end if
 
end subroutine vg6d_reduce
 
 
end module volgrid6d_class