From ab0fed9b885f9cdfa7aac5b1574dc470d13aac98 Mon Sep 17 00:00:00 2001
From: lucieb92 <lucie.bakels@univie.ac.at>
Date: Tue, 27 Feb 2024 16:21:44 +0100
Subject: [PATCH] bugfix: zeta not correctly updated when read from part_ic
using kindz=3
Former-commit-id: 82f82098851a32101297493b3d5df10e287254e9
---
src/timemanager_mod.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/timemanager_mod.f90 b/src/timemanager_mod.f90
index d577ae3a..841d5990 100644
--- a/src/timemanager_mod.f90
+++ b/src/timemanager_mod.f90
@@ -217,7 +217,9 @@ subroutine timemanager
! If kindz>1, vertical positions computation
if (ipin.eq.3 .or. ipin.eq.4) call kindz_to_z(i)
#ifdef ETA
- call update_z_to_zeta(itime, i)
+ call z_to_zeta(itime,part(i)%xlon,part(i)%ylat,part(i)%z,part(i)%zeta)
+ part(i)%etaupdate = .true.
+ part(i)%meterupdate = .true.
#endif
end do
!$OMP END DO
--
GitLab