diff --git a/Inst_eddies/Tests/examine_eddy.f90 b/Inst_eddies/Tests/examine_eddy.f90 index f38283619a56da8ddd5ea593b369dcf43246889b..aa4ec1707eecf6bad7ccc9792075af8229d4cfe3 100644 --- a/Inst_eddies/Tests/examine_eddy.f90 +++ b/Inst_eddies/Tests/examine_eddy.f90 @@ -195,6 +195,8 @@ program examine_eddy call new_unit(unit) open(unit, file = "outside_points.csv", status = "replace", action = "write") + write(unit, fmt = *) '"degrees east" "degrees north"' + write(unit, fmt = *) "longitude latitude" do i = 1, n1 + n2 write(unit, fmt = *) outside_points(:, i) * rad_to_deg