Skip to content
Snippets Groups Projects
Commit 66941e2e authored by Behrens, Prof. Dr. Jörn's avatar Behrens, Prof. Dr. Jörn
Browse files

corrected lat determination and spherical correction

parent c9264d9d
No related branches found
No related tags found
No related merge requests found
...@@ -535,10 +535,6 @@ ...@@ -535,10 +535,6 @@
END IF END IF
END IF END IF
END DO determine_lat END DO determine_lat
IF(REAL(r_lat(i_lat),GRID_SR) .LT. r_coord(2)) THEN
i_loy = i_lat-1
i_hiy = i_lat
END IF
!---------- calculate weights for bilinear interpolation !---------- calculate weights for bilinear interpolation
......
...@@ -512,12 +512,16 @@ ...@@ -512,12 +512,16 @@
!---------- calculate Euklidean norm !---------- calculate Euklidean norm
r_e = eukl_norm(r_displ) r_e = eukl_norm(r_displ)
zero_wind: IF(r_e .LT. GRID_eps) THEN
r_corct= r_displ
ELSE zero_wind
r_rat= r_e/ GRID_RADIUS r_rat= r_e/ GRID_RADIUS
!---------- calculate correction !---------- calculate correction
r_c = tan(r_rat)/r_rat r_c = tan(r_rat)/r_rat
r_corct= r_displ* r_c r_corct= r_displ* r_c
END IF zero_wind
RETURN RETURN
END FUNCTION sphere_correct END FUNCTION sphere_correct
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment