mpuserin more verbose

ecmwf-ifs · Dec 21, 2023 · 878df33 · 878df33
1 parent 531b2ce
commit 878df33
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/ecwam/mpuserin.F90 b/src/ecwam/mpuserin.F90
@@ -772,10 +772,9 @@ SUBROUTINE MPUSERIN
       LFILE=0
       LLEXIST=.FALSE.
       IF (NAMELIST_FILENAME /= ' ') LFILE=LEN_TRIM(NAMELIST_FILENAME)
-        INQUIRE(FILE=NAMELIST_FILENAME(1:LFILE),EXIST=LLEXIST)
-        IF (.NOT. LLEXIST) THEN
-          CALL WAM_ABORT("INPUT FILE '"//NAMELIST_FILENAME(1:LFILE)//"' IS MISSING !!!",__FILENAME__,__LINE__)
-        ENDIF
+      INQUIRE(FILE=NAMELIST_FILENAME(1:LFILE),EXIST=LLEXIST)
+      IF (.NOT. LLEXIST) THEN
+        CALL WAM_ABORT("INPUT FILE '"//NAMELIST_FILENAME(1:LFILE)//"' IS MISSING !!!",__FILENAME__,__LINE__)
       ENDIF
 
       WRITE(IU06,*) ' '