From 8014eafcf31d7b0f9d19aaed0b704d554bbe1f7e Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 13 Apr 2021 17:50:16 +0200
Subject: [PATCH] typo
---
src/inital.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/inital.F90 b/src/inital.F90
index a42b90c6..164a084b 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -51,7 +51,7 @@ SUBROUTINE inital
!!!!!! Set Sepj, Sipj and dnjs coeff table !!!!!!
IF ( NON_LIN ) THEN;
- WRITE(*,*) 'Building Dnjs table'
+ IF (my_id .EQ. 0) WRITE(*,*) 'Building Dnjs table'
CALL build_dnjs_table
IF (my_id .EQ. 0) WRITE(*,*) 'Init Sapj'
--
GitLab