diff --git a/src/MNH/ini_one_wayn.f90 b/src/MNH/ini_one_wayn.f90 index 1c0ad2b5901320189bbe83a3595c7ef33a226bda..61626d6fe5d7c5a5a43a9974851f3f9c468de686 100644 --- a/src/MNH/ini_one_wayn.f90 +++ b/src/MNH/ini_one_wayn.f90 @@ -140,7 +140,7 @@ SUBROUTINE INI_ONE_WAY_n(KDAD,HLUOUT,PTSTEP,KMI,KTCOUNT, & !! J.Escobar : 18/12/2015 : Correction of bug in bound in // for NHALO <>1 !! B.VIE 2016 : LIMA ! P. Wautelet 05/2016-04/2018: new data structures and calls for I/O -! P. Wautelet 04/06/2020: correct call to Set_conc_lima +! P. Wautelet 04/06/2020: correct call to Set_conc_lima + initialize ZCONCM !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS @@ -402,6 +402,7 @@ ENDIF IF (HCLOUD=="LIMA" ) THEN IF (CCLOUD/="LIMA") THEN ALLOCATE(ZCONCM(SIZE(XRHODJ,1),SIZE(XRHODJ,2),SIZE(XRHODJ,3),NSV_LIMA_A(KMI))) + ZCONCM(:, :, :, :) = 0. IF (CCLOUD == "REVE") THEN ZINIT_TYPE = "INI1" ELSE diff --git a/src/MNH/one_wayn.f90 b/src/MNH/one_wayn.f90 index baa51ac836518fb8f3581189526b0f1b2839c026..e31ffce7bb3072819d8b87f0e2530a3be7e8eea8 100644 --- a/src/MNH/one_wayn.f90 +++ b/src/MNH/one_wayn.f90 @@ -187,7 +187,7 @@ SUBROUTINE ONE_WAY_n(KDAD,PTSTEP,KMI,KTCOUNT, & !! J.Escobar : 18/12/2015 : Correction of bug in bound in // for NHALO <>1 !! Modification 01/2016 (JP Pinty) Add LIMA ! P. Wautelet: 05/2016-04/2018: new data structures and calls for I/O -! P. Wautelet 04/06/2020: correct call to Set_conc_lima +! P. Wautelet 04/06/2020: correct call to Set_conc_lima + initialize ZCONCT !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS @@ -483,6 +483,7 @@ ENDIF IF (HCLOUD=="LIMA" ) THEN IF (CCLOUD/="LIMA") THEN ALLOCATE(ZCONCT(SIZE(XRHODJ,1),SIZE(XRHODJ,2),SIZE(XRHODJ,3),NSV_LIMA_A(KMI))) + ZCONCT(:, :, :, :) = 0. IF (CCLOUD == "REVE") THEN ZINIT_TYPE = "INI1" ELSE