diff --git a/src/MNH/ini_micron.f90 b/src/MNH/ini_micron.f90 index 3660c408bfe150a604c38c48d4e9c0fc98ce5797..c5065c28210c1e4d7685c36f97cce3bb5ae27744 100644 --- a/src/MNH/ini_micron.f90 +++ b/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 !