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

vg6d_wind_rot() subroutine vg6d_wind_rot ( type(volgrid6d) this ) private Rotate the wind components. It converts u and v components of vector quantities relative to easterly and notherly direction to defined grid in the direction of increasing x and y coordinates. The original fields are overwritten. Parametri this object containing wind to be rotated Definizione alla linea 3042 del file volgrid6d_class.F90. call get_val(this(jgrid)%griddim,xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax,proj_type=type) if (type_t /= type )cycle #ifdef DEBUG call l4f_category_log(this(igrid)%category,l4f_debug,"C grid: test U "//& to_char(xmin)//to_char(xmax)//to_char(ymin)//to_char(ymax)) call l4f_category_log(this(igrid)%category,l4f_debug,"diff coordinate lon"//& to_char(abs(xmin - (xmin_t+step_lon_t/2.d0)))//& to_char(abs(xmax - (xmax_t+step_lon_t/2.d0)))) call l4f_category_log(this(igrid)%category,l4f_debug,"diff coordinate lat"//& to_char(abs(ymin - (ymin_t+step_lat_t/2.d0)))//& to_char(abs(ymax - (ymax_t+step_lat_t/2.d0)))) #endif