diff --git a/src/common/turb/mode_compute_mf_cloud_bigaus.F90 b/src/common/turb/mode_compute_mf_cloud_bigaus.F90 index 86d33090bb8e41b731f5e583d1ef19746f3a7d96..6fc2dfe69e294576ad93e95559820d106b0eaa72 100644 --- a/src/common/turb/mode_compute_mf_cloud_bigaus.F90 +++ b/src/common/turb/mode_compute_mf_cloud_bigaus.F90 @@ -125,7 +125,7 @@ ZFRAC_ICE_UP_M(:,:) = MZF_MF(PFRAC_ICE_UP(:,:), KKA, KKU, KKL) !computation of omega star up ZOMEGA_UP_M(:)=0. -DO JK=KKB,KKE,KKL +DO JK=KKB,KKE-KKL,KKL !Vertical integration over the entire column but only buoyant points are used !ZOMEGA_UP_M(:)=ZOMEGA_UP_M(:) + & ! ZEMF_M(:,JK) * &