diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90 index aa4039877cf5a3a12d415b8a2725eb42ad1af44b..7dcb9e023de3ea014580890d3b19e71ce013dd38 100644 --- a/src/MNH/default_desfmn.f90 +++ b/src/MNH/default_desfmn.f90 @@ -1071,7 +1071,7 @@ IF (KMI == 1) THEN LSUPSAT = .FALSE. LDEPOC = .FALSE. XVDEPOC = 0.02 ! 2 cm/s - LACTTKE = .FALSE. + LACTTKE = .TRUE. ! HPARAM_CCN = 'XXX' HINI_CCN = 'XXX' diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 252290fdfa240dcc16fe2a65d17bb390b4adc652..571adc46e80029097aebf682ce4468a779f8daeb 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -1448,7 +1448,7 @@ ELSE ALLOCATE(XCIT(0,0,0)) END IF ! -IF ( CCLOUD == 'KHKO') THEN +IF ( CCLOUD == 'KHKO' .OR. CCLOUD == 'C2R2') THEN ALLOCATE(XSUPSAT(IIU,IJU,IKU)) ALLOCATE(XNACT(IIU,IJU,IKU)) ALLOCATE(XNPRO(IIU,IJU,IKU)) diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90 index 671f1d8aa00deb4aaeddc94be5a32abd33f5b443..834f410cb629e2c1a832f7a3d95bc662bfa1fb39 100644 --- a/src/MNH/rain_c2r2_khko.f90 +++ b/src/MNH/rain_c2r2_khko.f90 @@ -1808,6 +1808,7 @@ DO JN = 1 , KSPLITR END WHERE ZWSEDR(:,:,:) = UNPACK( ZZW1(:),MASK=GSEDIM(:,:,:),FIELD=0.0 ) ZWSEDC(:,:,:) = UNPACK( ZZW2(:),MASK=GSEDIM(:,:,:),FIELD=0.0 ) + DEALLOCATE(ZRCT) DEALLOCATE(ZCCT) DEALLOCATE(ZLBDC) END IF