diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90 index 4d83119025b0df51271cf192415d34a29d612b1f..cea64de059a7286ccb9d6fd038a8d0faccb1f842 100644 --- a/Inst_eddies/set_max_speed.f90 +++ b/Inst_eddies/set_max_speed.f90 @@ -20,7 +20,7 @@ contains ! geometrical processing done here is non-ambiguous. The ! longitudes of outside points 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. + ! will be no automatic shifting by a multiple of 360 degrees. use, intrinsic:: IEEE_ARITHMETIC, only: IEEE_IS_NAN