From 62d467fd7b403cd0f10b53d483cdf9b1dc19bb40 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 15 Mar 2021 16:20:32 +0100
Subject: [PATCH] comment
---
src/control.F90 | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/src/control.F90 b/src/control.F90
index a3f251e5..a5843416 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -9,9 +9,8 @@ SUBROUTINE control
!________________________________________________________________________________
! 1. Prologue
! 1.1 Initialize the parallel environment
- IF (my_id .EQ. 0) WRITE(*,*) 'Initialize MPI...'
CALL ppinit
- IF (my_id .EQ. 0) WRITE(*,'(a/)') '...MPI initialized'
+ IF (my_id .EQ. 0) WRITE(*,'(a/)') 'MPI initialized'
CALL daytim('Start at ')
--
GitLab