fix compilation error for MPI_INIT/FINALIZE error messages

grantfirl · May 30, 2024 · 356e4ee · 356e4ee
1 parent 0958467
commit 356e4ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scm/src/scm.F90 b/scm/src/scm.F90
@@ -44,7 +44,7 @@ subroutine scm_main_sub()
 
   call MPI_INIT(ierr)
   if (ierr/=0) then
-      write(*,'(a,i0,a)') 'An error occurred in MPI_INIT: ' // ierr // '. Exiting...'
+      write(*,*) 'An error occurred in MPI_INIT: ', ierr
       stop 1
   end if
   fcst_mpi_comm = MPI_COMM_WORLD  
@@ -432,7 +432,7 @@ subroutine scm_main_sub()
 
   call MPI_FINALIZE(ierr)
   if (ierr/=0) then
-      write(*,'(a,i0,a)') 'An error occurred in MPI_FINALIZE: ' // ierr // '. Exiting...'
+      write(*,*) 'An error occurred in MPI_FINALIZE: ', ierr
       stop 1
   end if