diff --git a/src/mesonh/micro/lima_adjust_split.f90 b/src/mesonh/micro/lima_adjust_split.f90
index 724b835b9729e2f9a6ac930affaa28ced1ad815c..d0b3425d8f83bec8cf9010ace6fe2dfab4e71acd 100644
--- a/src/mesonh/micro/lima_adjust_split.f90
+++ b/src/mesonh/micro/lima_adjust_split.f90
@@ -504,12 +504,11 @@ DO JITER =1,ITERMAX
    ZRC2=PRCT
    ZRV_IN=ZRV
    ZRC_IN=ZRC
-   ZRI_IN=0.
    IF (NMOM_I.EQ.1) THEN
-      ZRI=PRIS*PTSTEP
+      ZRI_IN=PRIS*PTSTEP
       GUSERI=.TRUE.
    ELSE
-      ZRI=0.
+      ZRI_IN=0.
       GUSERI=.FALSE.
    END IF
    IF (OSUBG_COND) THEN