Quentin 07/08/2024: fix 9f7e9ffe, XPSOLD is only defined with BEM

src/SURFEX/coupling_tebn.F90

@@ -1062,10 +1062,10 @@ DO JP = 1,TOP%NTEB_PATCH
   ENDIF
   !
     !CHECK if old pressure is initialized
-  
-  IF (ANY(NB%AL(JP)%XPSOLD(:)==XUNDEF)) THEN
-  NB%AL(JP)%XPSOLD(:)=PPS(:)
-  
+  IF(TOP%CBEM=='BEM' ) THEN
+    IF (ANY(NB%AL(JP)%XPSOLD(:)==XUNDEF)) THEN
+      NB%AL(JP)%XPSOLD(:)=PPS(:)  
+    END IF
   END IF