diff --git a/src/PHYEX/micro/rain_ice.f90 b/src/PHYEX/micro/rain_ice.f90 index 1bbd44d1053ed5f3962e006c8b51bce22b35dcd6..0eebb9cc00cdaa89ad0b1ed0bd0cc07ef98c5c50 100644 --- a/src/PHYEX/micro/rain_ice.f90 +++ b/src/PHYEX/micro/rain_ice.f90 @@ -530,6 +530,8 @@ ENDIF IF (OELEC) THEN LSAVE_MICRO = .TRUE. ZMICRO_TEND(:,:,:) = 0. +ELSE + LSAVE_MICRO = .FALSE. END IF ! !This part is put in another routine to separate pack/unpack operations from computations