From 0b17ebac1a7937692716d147e7355421d080e77a Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Tue, 26 Apr 2016 09:46:20 +0000 Subject: [PATCH] Gaelle 26/04/2016 : bug allocation ZSVT_C --- src/MNH/spawn_field2.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90 index 37e47a7ce..4ab08435f 100644 --- a/src/MNH/spawn_field2.f90 +++ b/src/MNH/spawn_field2.f90 @@ -143,6 +143,7 @@ END MODULE MODI_SPAWN_FIELD2 !! Modification 2014 (M.Faivre) !! Modification 01/15 (C. Barthe) add LNOx !! Modification 25/02/2015 (M.Moge) correction of the parallelization attempted by M.Faivre +!! Modification 15/04/2016 (P.Tulet) bug allocation ZSVT_C !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -419,7 +420,7 @@ ELSE ALLOCATE(ZWTH_FLUX_M_C(IDIMX_C,IDIMY_C,SIZE(PVT,3))) !$***** 4D ALLOCATE(ZRT_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),SIZE(PRT,4))) - ALLOCATE(ZSVT_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),SIZE(PRT,4))) + ALLOCATE(ZSVT_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),NSV)) ALLOCATE(ZDRVFRC_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),SIZE(PRT,4))) ALLOCATE(ZDTHFRC_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),SIZE(PRT,4))) ALLOCATE(ZRVREL_C(IDIMX_C,IDIMY_C,SIZE(PUT,3),SIZE(PRT,4))) -- GitLab