diff --git a/src/common/micro/mode_ice4_nucleation.F90 b/src/common/micro/mode_ice4_nucleation.F90
index 1ba3335b97e17fe3c7384fd210aebf21fe3d3e04..8cf213442f1e8388d7947d183947c1fb3c286da2 100644
--- a/src/common/micro/mode_ice4_nucleation.F90
+++ b/src/common/micro/mode_ice4_nucleation.F90
@@ -69,7 +69,11 @@ INTEGER :: JI
 IF (LHOOK) CALL DR_HOOK('ICE4_NUCLEATION', 0, ZHOOK_HANDLE)!
 !
 !$mnh_expand_where(JI=1:KSIZE)
-GNEGT(:)=PT(:)<CST%XTT .AND. PRVT(:)>ICED%XRTMIN(1) .AND. ODCOMPUTE(:)
+WHERE(ODCOMPUTE(:))
+  GNEGT(:)=PT(:)<CST%XTT .AND. PRVT(:)>ICED%XRTMIN(1)
+ELSEWHERE
+  GNEGT(:)=.FALSE.
+ENDWHERE
 !$mnh_end_expand_where(JI=1:KSIZE)
 
 ZUSW(:)=0.