From 35195829b07fe5c44141cb12fddf1c3ed4466e69 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 4 Jun 2020 14:04:38 +0200
Subject: [PATCH] Philippe 04/06/2020: bugfix: correct bounds of passed array
to INIT_AEROSOL_CONCENTRATION
---
src/MNH/ini_micron.f90 | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/src/MNH/ini_micron.f90 b/src/MNH/ini_micron.f90
index 3660c408b..c5065c282 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
!
--
GitLab