diff --git a/Common/Tests/write_extr_map.f90 b/Common/Tests/write_extr_map.f90 index 0c9d154c4f5b7647bedb56f9342d78702f1ff300..d5681613959d32649d7b16ed3b42d03543581618 100644 --- a/Common/Tests/write_extr_map.f90 +++ b/Common/Tests/write_extr_map.f90 @@ -45,5 +45,5 @@ contains print *, 'Created file "extr_map.nc".' end subroutine write_extr_map - + end module write_extr_map_m diff --git a/Inst_eddies/mean_speed.f90 b/Inst_eddies/mean_speed.f90 index 5daf3fcad233efc1ba570782bd5e3c50fcfce283..55928bfaa3e4bc5b955359fe022e3dbc5b9e13d8 100644 --- a/Inst_eddies/mean_speed.f90 +++ b/Inst_eddies/mean_speed.f90 @@ -13,7 +13,7 @@ contains ! We assume (and do not check) that the longitude of the center ! has been brought modulo 2 pi in the longitude range of the ! polyline `p` and that the polyline is in the longitude range of - ! the grid corresponding to corner and step. + ! the grid corresponding to u and v. use, intrinsic:: iso_fortran_env, only: error_unit