diff --git a/src/inital.F90 b/src/inital.F90 index a42b90c67175f7b6d9b63aae3eef9a9c7ba0dd41..164a084be2aaaa433b7e851d41bd4cc776cbab12 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'