From 3db1f095ac1e805cfcc3eda2b18244706fdc2acc Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Wed, 23 Apr 2014 08:39:10 +0000 Subject: [PATCH] Gaelle 23/4/2014 : ajout LPATCH pour pouvoir tracer les patch avec surfex 7.3 et plus --- tools/diachro/src/DIAPRO/oper_process.f90 | 2 +- tools/diachro/src/MOD/modd_resolvcar.f90 | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/diachro/src/DIAPRO/oper_process.f90 b/tools/diachro/src/DIAPRO/oper_process.f90 index 1fdd6cdc9..23a87849f 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 c1aaaf17d..91954ea37 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 -- GitLab