diff --git a/Inst_eddies/max_speed_contour_ssh.f90 b/Inst_eddies/max_speed_contour_ssh.f90 index 695c49fddc3e176db547f1e28bfc96691fe5ea29..7cb7e84f8c6af9d895cb4d7b10cd5133fce9ab57 100644 --- a/Inst_eddies/max_speed_contour_ssh.f90 +++ b/Inst_eddies/max_speed_contour_ssh.f90 @@ -33,7 +33,7 @@ contains !---------------------------------------------------------------------- - ! Assuming that ascending indices in u and v mean correspond to + ! Assuming that ascending indices in u and v correspond to ! ascending longitude and latitude: v_azim(east, :) = v(ind_extr(1) + 1:ind_extr(1) + radius - 1, & ind_extr(2)) diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90 index cea64de059a7286ccb9d6fd038a8d0faccb1f842..750ee87aa824a276bff1d2ee735f82835370db1e 100644 --- a/Inst_eddies/set_max_speed.f90 +++ b/Inst_eddies/set_max_speed.f90 @@ -84,7 +84,7 @@ contains e%speed_cont%ssh = max_speed_contour_ssh(ssh, u, v, ind_targ_extr, & e%radius4) - + if (e%speed_cont%ssh == missing_ssh) then e%speed_cont = null_ssh_contour() e%max_speed = speed_outerm