Skip to content
Snippets Groups Projects
Commit 3cf87463 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Polish

parent 8dfe6b45
No related branches found
No related tags found
No related merge requests found
......@@ -26,7 +26,7 @@ contains
real, intent(in):: center(:) ! (2)
! Longitude and latitude, in rad. Azimuthal speed is computed with
! respect to this point.
real, intent(in):: corner(:) ! (2)
! longitude and latitude corresponding to u(1,1) and v(1, 1), in rad
......@@ -57,7 +57,7 @@ contains
ni = p%n_points - 1
call bilinear_interp2_reg(corner, step, u, v, p%points(:, :ni), ui, vi)
do j = 1, ni
x = cos(center(2)) * (p%points(1, j) - center(1))
y = p%points(2, j) - center(2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment