Polish

Inst_eddies/Tests/test_output.json

@@ -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",

Inst_eddies/get_1_outerm.f90

@@ -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

Inst_eddies/set_max_speed.f90

@@ -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

Overlap/Tests/test_overlap.f90

@@ -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)

Overlap/Tests/test_read_eddy.f90

@@ -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, &