From 489ea7af56c5debf86876306d70d117963d61d9f Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Sat, 27 May 2023 00:18:22 +0200
Subject: [PATCH] Polish
---
Inst_eddies/nearby_extr.f90 | 4 ++--
Overlap/read_eddy.f90 | 3 ++-
Overlap/read_snapshot.f90 | 4 +++-
3 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/Inst_eddies/nearby_extr.f90 b/Inst_eddies/nearby_extr.f90
index d778edbe..c61fff67 100644
--- a/Inst_eddies/nearby_extr.f90
+++ b/Inst_eddies/nearby_extr.f90
@@ -19,8 +19,8 @@ contains
! extremum. 0 at other points.
type(eddy), intent(in):: list(:)
- ! Visible eddies at a given date. We need components extr%coord
- ! and cyclone to be defined.
+ ! Visible eddies at a given date. We need components extr%coord,
+ ! cyclone and out_cont to be defined.
integer, intent(in):: i ! identifying number of the target extremum
diff --git a/Overlap/read_eddy.f90 b/Overlap/read_eddy.f90
index 37e0741e..5c2e960f 100644
--- a/Overlap/read_eddy.f90
+++ b/Overlap/read_eddy.f90
@@ -19,7 +19,8 @@ contains
use derived_types, only: eddy, shpc_slice_handler, missing_speed
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.
integer, intent(out):: d ! date
diff --git a/Overlap/read_snapshot.f90 b/Overlap/read_snapshot.f90
index bb5724ae..9e55ee4e 100644
--- a/Overlap/read_snapshot.f90
+++ b/Overlap/read_snapshot.f90
@@ -15,7 +15,9 @@ contains
use read_eddy_m, only: read_eddy
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_meta), intent(in):: ssm(:) ! (n_slices)
integer, intent(in):: k ! date index
--
GitLab