diff --git a/src/common/turb/mode_emoist.F90 b/src/common/turb/mode_emoist.F90
index 3e3ade5ee9c70e4fa3844cc5cec93caecf8cbde8..8f56f0d014c223e4b29201687f1bfc4de77655a0 100644
--- a/src/common/turb/mode_emoist.F90
+++ b/src/common/turb/mode_emoist.F90
@@ -110,7 +110,7 @@ IF (OOCEAN) THEN
  IF ( KRR == 0 ) THEN                                ! Unsalted
   !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
    PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = 0.
-  !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)v
+  !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
  ELSE
    !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
    PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = 1.                              ! Salted case
diff --git a/src/common/turb/mode_etheta.F90 b/src/common/turb/mode_etheta.F90
index 31258f19f1f93efd06aa0354ea05f0e22d870bc1..764b8ce2d2eaa1f1edaa4a10427d3b8e42c8136c 100644
--- a/src/common/turb/mode_etheta.F90
+++ b/src/common/turb/mode_etheta.F90
@@ -129,7 +129,7 @@ ELSE
   ZDELTA = (CST%XRV/CST%XRD) - 1.
   !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
   ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = PRM(IIB:IIE,IJB:IJE,1:D%NKT,1)
-  !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
+  !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
 !
   IF ( KRRI>0 ) THEN  ! rc and ri case
     !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)