diff --git a/src/common/aux/mode_io_field_write.F90 b/src/common/aux/mode_io_field_write.F90
index 0393ea7ed49a8f0362cff09494a51dc1717d72af..fc33ce8dda90e11b4caf5381046372c30ade6418 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