libsim  Versione 7.2.1

◆ vg6d_wind_rot()

subroutine volgrid6d_class::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
thisobject containing wind to be rotated

Definizione alla linea 2994 del file volgrid6d_class.F90.

2995  to_char(abs(xmax - (xmax_t+step_lon_t/2.d0))))
2996  call l4f_category_log(this(igrid)%category,l4f_debug,"diff coordinate lat"//&
2997  to_char(abs(ymin - (ymin_t+step_lat_t/2.d0)))//&
2998  to_char(abs(ymax - (ymax_t+step_lat_t/2.d0))))
2999 #endif
3000 
3001  if ( abs(xmin - (xmin_t+step_lon_t/2.d0)) < 1.d-3 .and. abs(xmax - (xmax_t+step_lon_t/2.d0)) < 1.d-3 ) then
3002  if ( abs(ymin - ymin_t) < 1.d-3 .and. abs(ymax - ymax_t) < 1.d-3 ) then
3003 
3004 #ifdef DEBUG
3005  call l4f_category_log(this(igrid)%category,l4f_debug,"C grid: found U")
3006 #endif
3007  ugrid=jgrid
3008  tgrid=igrid
3009 
3010  end if

Generated with Doxygen.