From eb180d9576188c33a52efaa11fdd7ea2c84facb6 Mon Sep 17 00:00:00 2001
From: lucieb92 <lucie.bakels@univie.ac.at>
Date: Wed, 17 Jul 2024 09:42:09 +0200
Subject: [PATCH] Bugfix: only deallocate zsec4 when is6.ne.-1 in
readwind_ecmwf
---
src/windfields_mod.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/windfields_mod.f90 b/src/windfields_mod.f90
index e2e7dac..3b0bab9 100644
--- a/src/windfields_mod.f90
+++ b/src/windfields_mod.f90
@@ -2444,11 +2444,11 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
lcwsum=.true.
!$OMP END CRITICAL
- end select
+ end select
- call grib_release(igrib(ii))
+ call grib_release(igrib(ii))
- deallocate( zsec4 )
+ if (is6.ne.-1) deallocate( zsec4 )
end do fieldloop
!$OMP END DO
--
GitLab