From b34fcde636f07186b846470fbabaf09088be6d39 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 7 Jul 2022 16:56:56 +0200
Subject: [PATCH] Quentin 07/07/2022: bugfix Packing IO_Field_write for arome
---
src/common/aux/mode_io_field_write.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/common/aux/mode_io_field_write.F90 b/src/common/aux/mode_io_field_write.F90
index 0393ea7ed..fc33ce8dd 100644
--- a/src/common/aux/mode_io_field_write.F90
+++ b/src/common/aux/mode_io_field_write.F90
@@ -21,7 +21,7 @@ SUBROUTINE IO_FIELD_WRITE_PHY(D,TPFILE,TZFIELD,PFIELD)
TYPE(DIMPHYEX_t), INTENT(IN) :: D
TYPE(TFILEDATA), INTENT(IN) :: TPFILE
TYPE(TFIELDDATA), INTENT(IN) :: TZFIELD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PFIELD ! array containing the data field
+ REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PFIELD ! array containing the data field
!
CALL ABORT
END SUBROUTINE IO_FIELD_WRITE_PHY
--
GitLab