Skip to content
Snippets Groups Projects
Commit c414b4c6 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Change default value of min_radius.

parent 29cd012d
No related branches found
No related tags found
No related merge requests found
......@@ -30,7 +30,9 @@ program test_get_snapshot
! minimum amplitude of ssh, between extremum and outermost contour,
! in m
real:: min_radius = 15.957691216057307 ! minimum radius of the equal-area disk for an outermost contour, in km
real:: min_radius = 20.
! minimum radius of the equal-area disk for an outermost contour, in km
integer ncid, dimid, varid, nlon, nlat
real lon_min, lon_max, lat_min, lat_max ! longitudes and latitudes, in degrees
real step(2) ! longitude and latitude steps, in rad
......
......@@ -26,7 +26,9 @@ program test_set_all_outerm
! minimum amplitude of ssh, between extremum and outermost contour,
! in m
real:: min_radius = 15.957691216057307 ! minimum radius of the equal-area disk for of an outermost contour, in km
real:: min_radius = 20.
! minimum radius of the equal-area disk for of an outermost contour, in km
character(len = :), allocatable:: filename
integer nlon, nlat, copy
real lon_min, lon_max, lat_min, lat_max ! longitudes and latitudes, in degrees
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment