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

Polish

parent f732085c
No related branches found
No related tags found
No related merge requests found
...@@ -19,8 +19,8 @@ contains ...@@ -19,8 +19,8 @@ contains
! extremum. 0 at other points. ! extremum. 0 at other points.
type(eddy), intent(in):: list(:) type(eddy), intent(in):: list(:)
! Visible eddies at a given date. We need components extr%coord ! Visible eddies at a given date. We need components extr%coord,
! and cyclone to be defined. ! cyclone and out_cont to be defined.
integer, intent(in):: i ! identifying number of the target extremum integer, intent(in):: i ! identifying number of the target extremum
......
...@@ -19,7 +19,8 @@ contains ...@@ -19,7 +19,8 @@ contains
use derived_types, only: eddy, shpc_slice_handler, missing_speed use derived_types, only: eddy, shpc_slice_handler, missing_speed
type(eddy), intent(out):: e type(eddy), intent(out):: e
! All components are defined. Components delta_in and delta_out ! All components except e%innermost_level and maybe
! e%extr%coord_proj are defined. Components delta_in and delta_out
! get default initialization values. ! get default initialization values.
integer, intent(out):: d ! date integer, intent(out):: d ! date
......
...@@ -15,7 +15,9 @@ contains ...@@ -15,7 +15,9 @@ contains
use read_eddy_m, only: read_eddy use read_eddy_m, only: read_eddy
use read_grid_m, only: nlon, nlat, corner, step use read_grid_m, only: nlon, nlat, corner, step
type(snapshot), intent(out):: s ! completely defined type(snapshot), intent(out):: s
! completely defined except s%list%innermost_level
TYPE(shpc_slice_handler), intent(in):: hshpc(:) ! (n_slices) TYPE(shpc_slice_handler), intent(in):: hshpc(:) ! (n_slices)
type(shpc_slice_meta), intent(in):: ssm(:) ! (n_slices) type(shpc_slice_meta), intent(in):: ssm(:) ! (n_slices)
integer, intent(in):: k ! date index integer, intent(in):: k ! date index
......
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