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

Add default initialization for component area

Add default initialization for component area of derived type
`ssh_contour`, because we are going to keep contours for which we will
not compute area.
parent 877bb9a0
No related branches found
No related tags found
No related merge requests found
......@@ -11,7 +11,7 @@ module derived_types
! Points of polyline are (longitude, latitude) in rad. Polyline
! should be closed, except if it is null.
real ssh ! in m
real area ! in m2
real:: area = - 1e6 ! in m2
end type ssh_contour
type extremum
......
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