libsim Versione 7.1.11
|
◆ vg6d_wind_rot()
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.
Definizione alla linea 2990 del file volgrid6d_class.F90. 2991 to_char(xmin)//to_char(xmax)//to_char(ymin)//to_char(ymax))
2992
2993 call l4f_category_log(this(igrid)%category,l4f_debug,"diff coordinate lon"//&
2994 to_char(abs(xmin - (xmin_t+step_lon_t/2.d0)))//&
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
|