Philippe 04/06/2020: bugfix: correct bounds of passed array to INIT_AEROSOL_CONCENTRATION

src/MNH/ini_micron.f90

@@ -50,10 +50,11 @@ END MODULE MODI_INI_MICRO_n
 !!      O.Geoffroy (03/2006) : Add KHKO scheme
 !!      Modification    01/2016  (JP Pinty) Add LIMA
 !!      C.LAc          10/2016   Add budget for droplet deposition
-!!  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-!!      P.Wautelet     01/2019: bug: add missing allocations
-!!      C.Lac          02/2020: add missing allocation of INPRC and ACPRC with deposition
-!! --------------------------------------------------------------------------
+!  P. Wautelet 05/2016-04/2018: new data structures and calls for I/O
+!  P. Wautelet    01/2019: bugfix: add missing allocations
+!  C. Lac         02/2020: add missing allocation of INPRC and ACPRC with deposition
+!  P. Wautelet 04/06/2020: bugfix: correct bounds of passed arrays
+! --------------------------------------------------------------------------
 !
 !*      0. DECLARATIONS
 !          ------------
@@ -292,11 +293,7 @@ ELSE IF (CCLOUD == 'C2R2' .OR. CCLOUD == 'C3R5' .OR. CCLOUD == 'KHKO') THEN
     CALL INI_ICE_C1R3(XTSTEP,ZDZMIN,NSPLITG)       ! 1/2 spectral cold cloud
   END IF
 ELSE IF (CCLOUD == 'LIMA') THEN
-  IF (CGETCLOUD /= 'READ') THEN
-    CALL INIT_AEROSOL_CONCENTRATION(XRHODREF,                              &
-                                    XSVT(:,:,:,NSV_LIMA_BEG:NSV_LIMA_END), &
-                                                                XZZ(:,:,:) )
-  END IF
+  IF (CGETCLOUD /= 'READ') CALL INIT_AEROSOL_CONCENTRATION( XRHODREF, XSVT(:, :, :, :), XZZ(:, :, :) )
   CALL INI_LIMA(XTSTEP,ZDZMIN,NSPLITR, NSPLITG)   ! 1/2 spectral warm cloud
 END IF
 !