diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90 index 37e47a7cecf0f46f0cd406c8242241c7cf14c694..4ab08435ff0e4dc3265452987d600e7b72f7baab 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)))