Disable caution message in MPL_INIT when hostname is not recognized

ecmwf-ifs · Feb 5, 2024 · 37be1f2 · 37be1f2
1 parent 2754bfd
commit 37be1f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fiat/mpl/internal/mpl_init_mod.F90 b/src/fiat/mpl/internal/mpl_init_mod.F90
@@ -332,7 +332,7 @@ SUBROUTINE MPL_INIT(KOUTPUT,KUNIT,KERROR,KPROCS,LDINFO,LDENV)
       MPL_NCPU_PER_NODE=32
    ELSE
       MPL_NCPU_PER_NODE=1
-      IF(LLINFO) WRITE(MPL_UNIT,'(A)')'MPL_INIT : MPL_NCPU_PER_NODE = 1 (CAUTION: could not be inferred from hostname!)'
+      !IF(LLINFO) WRITE(MPL_UNIT,'(A)')'MPL_INIT : MPL_NCPU_PER_NODE = 1 (CAUTION: could not be inferred from hostname!)'
    ENDIF
 ELSE
    READ(CL_TASKSPERNODE,*) MPL_NCPU_PER_NODE