From 36decbb290feb9b07ae3271899ff098a28bbc907 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 4 Jul 2023 15:55:14 +0200
Subject: [PATCH] explicit size of the field variable in write_field5d
---
src/diagnose.F90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index c80b8fe5..9f4bf819 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -528,8 +528,9 @@ SUBROUTINE diagnose_5d
USE futils, ONLY: attach, putarr!, putarrnd
USE parallel, ONLY: gather_pjxyz, num_procs
USE prec_const, ONLY: xp
+ USE time_integration, ONLY: ntimelevel
IMPLICIT NONE
- COMPLEX(xp), DIMENSION(:,:,:,:,:,:,:), INTENT(IN) :: field
+ COMPLEX(xp), DIMENSION(total_na,local_np+ngp,local_nj+ngj,local_Nky,local_Nkx,local_nz+ngz,ntimelevel), INTENT(IN) :: field
CHARACTER(*), INTENT(IN) :: text
COMPLEX(xp), DIMENSION(total_na,local_np,local_nj,local_nky,local_nkx,local_nz) :: field_sub
COMPLEX(xp), DIMENSION(total_na,total_np,total_nj,total_nky,total_nkx,total_nz) :: field_full
--
GitLab