From 0c48bee17fcdc6c0beed65066a26564a116308ec Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Wed, 23 Apr 2014 08:37:41 +0000
Subject: [PATCH] =?UTF-8?q?Gaelle=2023/4/2014=20:=20taille=20de=20ZWORKZ?=
=?UTF-8?q?=20pass=C3=83=C2=A9=20de=20400=20a=202500=20pour=20fichier=20av?=
=?UTF-8?q?ec=20plus=20de=20400=20niveaux=20verticaux?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
tools/diachro/src/DIAPRO/imcou_fordiachro.f90 | 2 +-
tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90 | 2 +-
tools/diachro/src/DIAPRO/imcouv_fordiachro.f90 | 2 +-
tools/diachro/src/DIAPRO/interpolw.f90 | 2 +-
tools/diachro/src/DIAPRO/pro1d_fordiachro.f90 | 6 +++---
tools/diachro/src/DIAPRO/pvfct.f90 | 2 +-
tools/diachro/src/DIAPRO/subspxy.f90 | 2 +-
tools/diachro/src/POS/ficstr.f | 4 ++--
tools/diachro/src/POS/frame41.f | 4 ++--
9 files changed, 13 insertions(+), 13 deletions(-)
diff --git a/tools/diachro/src/DIAPRO/imcou_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
index 5070af64d..8f6cbc471 100644
--- a/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
@@ -211,7 +211,7 @@ COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/COLAREA/ICOL(300)
COMMON/HACHAREA/IHACH(300)
#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/DIAPRO/imcoupv_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
index af1dedb70..0f2b736c9 100644
--- a/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
@@ -160,7 +160,7 @@ END INTERFACE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#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/DIAPRO/imcouv_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
index 3962aa7c0..16fd204ce 100644
--- a/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
@@ -159,7 +159,7 @@ END INTERFACE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#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/DIAPRO/interpolw.f90 b/tools/diachro/src/DIAPRO/interpolw.f90
index 768f75a4f..f8b2fc959 100644
--- a/tools/diachro/src/DIAPRO/interpolw.f90
+++ b/tools/diachro/src/DIAPRO/interpolw.f90
@@ -57,7 +57,7 @@ IMPLICIT NONE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400):: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500):: XZWORKZ
!REAL,DIMENSION(1000,400):: XZWORKZ
REAL,DIMENSION(N2DVERTX):: XZZDS
!REAL,DIMENSION(1000):: XZZDS
diff --git a/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90 b/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
index 38897ac0a..cec539a7e 100644
--- a/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
@@ -662,21 +662,21 @@ ENDIF
CALL RESOLV_TIT('CTITXL',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXL',YTEM)
- CALL PLCHHQ(ZVL,ZVB-MIN(ZVB/2.,.05),YTEM,.008,0.,-1.)
+ CALL PLCHHQ(ZVL,ZVB-MIN(ZVB/2.,.05),YTEM,XSZTITXL,0.,-1.)
! CALL PLCHHQ(ZVL,ZVB/2.,YTEM,.008,0.,-1.)
ENDIF
YTEM(1:LEN(YTEM))=' '
CALL RESOLV_TIT('CTITXM',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXM',YTEM)
- CALL PLCHHQ((ZVL+ZVR)/2.,ZVB-MIN(ZVB/2.,.05),YTEM(1:LEN_TRIM(YTEM)),.008,0.,0.)
+ CALL PLCHHQ((ZVL+ZVR)/2.,ZVB-MIN(ZVB/2.,.05),YTEM(1:LEN_TRIM(YTEM)),XSZTITXM,0.,0.)
! CALL PLCHHQ((ZVL+ZVR)/2.,ZVB/2.,YTEM(1:LEN_TRIM(YTEM)),.008,0.,0.)
ENDIF
YTEM(1:LEN(YTEM))=' '
CALL RESOLV_TIT('CTITXR',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXR',YTEM)
- CALL PLCHHQ(ZVR,ZVB-MIN(ZVB/2.,.05),YTEM,.008,0.,+1.)
+ CALL PLCHHQ(ZVR,ZVB-MIN(ZVB/2.,.05),YTEM,XSZTITXR,0.,+1.)
! CALL PLCHHQ(ZVR-ZVB/2.,ZVB/2.,YTEM,.008,0.,-1.)
ENDIF
if(nverbia > 0)then
diff --git a/tools/diachro/src/DIAPRO/pvfct.f90 b/tools/diachro/src/DIAPRO/pvfct.f90
index 249e26d67..dbc70952a 100644
--- a/tools/diachro/src/DIAPRO/pvfct.f90
+++ b/tools/diachro/src/DIAPRO/pvfct.f90
@@ -97,7 +97,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/DIAPRO/subspxy.f90 b/tools/diachro/src/DIAPRO/subspxy.f90
index bc7ed793e..e9e5290be 100644
--- a/tools/diachro/src/DIAPRO/subspxy.f90
+++ b/tools/diachro/src/DIAPRO/subspxy.f90
@@ -160,7 +160,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(N2DVERTX) :: XZZDS
!REAL,DIMENSION(1000) :: XZZDS
diff --git a/tools/diachro/src/POS/ficstr.f b/tools/diachro/src/POS/ficstr.f
index dd5334cb1..598c7e140 100644
--- a/tools/diachro/src/POS/ficstr.f
+++ b/tools/diachro/src/POS/ficstr.f
@@ -4215,7 +4215,7 @@ C
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
c REAL ZZXX(4000),ZZXY(400)
cc REAL ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
c REAL ZWORKZ(4000,400),ZZDS(4000)
cc REAL ZWORKZ(1000,400),ZZDS(1000)
LOGICAL LVERT,LHOR,LPT,LXABS
@@ -4421,7 +4421,7 @@ C
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
c REAL ZZXX(4000),ZZXY(400)
cc REAL ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
c REAL ZWORKZ(4000,400),ZZDS(4000)
cc REAL ZWORKZ(1000,400),ZZDS(1000)
LOGICAL LVERT,LHOR,LPT,LXABS
diff --git a/tools/diachro/src/POS/frame41.f b/tools/diachro/src/POS/frame41.f
index 682c464be..e8d9353ce 100644
--- a/tools/diachro/src/POS/frame41.f
+++ b/tools/diachro/src/POS/frame41.f
@@ -219,7 +219,7 @@ C
#include "big.h"
C REAL ZWORKZ(600,300),ZZDS(600),ZZXX(600),ZZXY(300)
c REAL ZWORKZ(1000,400),ZZDS(1000),ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
C REAL ZWORKZ(200,200),ZZDS(200),ZZXX(200),ZZXY(200)
LOGICAL LVERT,LHOR,LPT,LXABS
@@ -612,7 +612,7 @@ c DIMENSION ZZX(1000),ZZY(400)
DIMENSION ZZX(N2DVERTX),ZZY(N2DVERTX)
REAL ZZX,ZZY
c REAL ZWORKZ(1000,400),ZZDS(1000)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
C REAL ZWORKZ(200,200),ZZDS(200)
INTEGER IIMAX,IJMAX
INTEGER INX,INY
--
GitLab