diff --git a/tools/diachro/src/DIAPRO/oper_process.f90 b/tools/diachro/src/DIAPRO/oper_process.f90
index 1fdd6cdc9b65efb33694f79adae076e83c2e39f0..23a87849f8c6a2985c80908a6b4cd18a2e4c5c52 100644
--- a/tools/diachro/src/DIAPRO/oper_process.f90
+++ b/tools/diachro/src/DIAPRO/oper_process.f90
@@ -199,7 +199,7 @@ END INTERFACE
 COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
 COMMON/LOGI/LVERT,LHOR,LPT,LXABS
 #include "big.h"
-REAL,DIMENSION(N2DVERTX,400) :: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500) :: XZWORKZ
 !REAL,DIMENSION(1000,400) :: XZWORKZ
 !REAL,DIMENSION(200,200) :: XZWORKZ
 REAL,DIMENSION(N2DVERTX)     :: XZZDS
diff --git a/tools/diachro/src/MOD/modd_resolvcar.f90 b/tools/diachro/src/MOD/modd_resolvcar.f90
index c1aaaf17d3aefd6ef111b0c4a4ac41131d5c71fa..91954ea373030c934d3983dda9edc91f5ad86d0f 100644
--- a/tools/diachro/src/MOD/modd_resolvcar.f90
+++ b/tools/diachro/src/MOD/modd_resolvcar.f90
@@ -582,5 +582,7 @@ LOGICAL,SAVE         :: LFT1BAUTO=.FALSE.
 LOGICAL,SAVE            ::L90TITYT=.FALSE.
 LOGICAL,SAVE            ::L90TITYM=.FALSE.
 LOGICAL,SAVE            ::L90TITYB=.FALSE.
+LOGICAL,SAVE            ::LPATCH=.FALSE.
+
 !
 END MODULE MODD_RESOLVCAR