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

Polish

parent 537ffdef
No related branches found
No related tags found
No related merge requests found
......@@ -18,7 +18,8 @@
"description": "Only useful as input to other tests."
},
"Medium_mix": {
"description": "Append to medium-sized SHPC, mixing output to the three shapefiles.",
"description":
"Append to medium-sized SHPC, mixing output to the three shapefiles.",
"input": "&main_nml /\n",
"command": [
"time",
......
......@@ -33,13 +33,13 @@ contains
! Method: dichotomy on level of ssh.
! The length of the interval of longitudes of the domain, step(1)
! * (size(ssh, 1) - 1), should be < 180 degrees, so that the
! geometrical processing done here is non-ambiguous. The
! longitudes of outside points and the target extremum should be
! in the interval [corner(1), corner(1) + step(1) * (size(ssh, 1)
! - 1)] as there will be no automatic shifting by a mulitple of
! 360 degrees.
! The length of the interval of longitudes of the domain,
! longitude of ssh(size(ssh, 1), 1) - longitude of ssh(1, 1),
! should be < 180 degrees, so that the geometrical processing done
! here is non-ambiguous. The longitudes of outside points and the
! target extremum should be in the interval [longitude of ssh(1,
! 1), longitude of ssh(size(ssh, 1), 1)] as there will be no
! automatic shifting by a mulitple of 360 degrees.
! Libraries:
use contour_531, only: polyline, convert_to_reg_coord
......
......@@ -11,9 +11,10 @@ contains
! speed_cont may be a null ssh contour and max_speed may be set to
! missing_speed. max_speed is never NaN.
! The length of the interval of longitudes of the domain, step(1)
! * (size(ssh, 1) - 1), should be < 180 degrees, so that the
! geometrical processing done here is non-ambiguous.
! The length of the interval of longitudes of the domain,
! longitude of ssh(size(ssh, 1), 1) - longitude of ssh(1, 1),
! should be < 180 degrees, so that the geometrical processing done
! here is non-ambiguous.
use, intrinsic:: IEEE_ARITHMETIC, only: IEEE_IS_NAN, ieee_value, &
IEEE_QUIET_NAN
......
......@@ -37,7 +37,7 @@ program test_overlap
read(unit = *, nml = main_nml)
write(unit = *, nml = main_nml)
call shpc_open(hshp, trim(shpc_dir), cyclone, slice = i_slice, &
call shpc_open(hshp, trim(shpc_dir), cyclone, i_slice, &
with_proj = .not. uniform_lon_lat, pszaccess = "rb")
call dbf_read_attribute_03(ssm%d0, hshp%extremum, hshp%extr_date, ishape = 0)
call read_opcol(ssm%ishape_last, hshp%unit, my_lbound = ssm%d0)
......
......@@ -27,7 +27,7 @@ program test_read_eddy
call read_grid(rank = 0, shpc_dir = shpc_dir)
print *, "Enter namelist main_nml."
read(unit = *, nml = main_nml)
call shpc_open(hshp_in, shpc_dir, cyclone = cyclone, slice = 0, &
call shpc_open(hshp_in, shpc_dir, cyclone, slice = 0, &
with_proj = .not. uniform_lon_lat, pszaccess = "rb")
call read_eddy(e, k, eddy_i, hshp_in, ishape)
call shpc_create(hshp_out, shpc_dir = "SHPC", cyclone = hshp_in%cyclone, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment