Polish

Common/shpc_open.f90

@@ -44,6 +44,7 @@ contains
             pszaccess)
        call shp_open_03(hshp%max_speed, hshp%dir // "/max_speed_contour", &
             pszaccess)
+       hshp%cyclone = cyclone
        hshp%with_proj = with_proj ! needed before calling read_field_indices
        call read_field_indices(hshp)
        call new_unit(hshp%unit)
@@ -55,8 +56,6 @@ contains
           open(hshp%unit, file = hshp%dir // "/ishape_last.txt", &
                status = "old", action = "readwrite", position = "append")
        end if
-
-       hshp%cyclone = cyclone
     else if (.not. present(iostat)) then
        write(ERROR_UNIT, fmt = *) "shpc_open: failed"
        write(ERROR_UNIT, fmt = *) "shpc_dir = ", shpc_dir

Inst_eddies/inst_eddies.f90

@@ -80,7 +80,7 @@ program inst_eddies
        "inst_eddies: not enough IEEE support")
   n_arg = command_argument_count()
   call assert(n_arg >= 2 .and. n_arg <= 4, &
-       "Usage: SHPC-directory inst_eddies h-file [u-file [v-file]]")
+       "Usage: inst_eddies SHPC-directory h-file [u-file [v-file]]")
   call get_command_arg_dyn(1, shpc_dir)
   call get_command_arg_dyn(2, ssh_fname)