Commit 8a6a42dc authored by Stefan's avatar Stefan
Browse files

Do not print some unnecessary infos

parent c9360c04
c-----------------------------------------------------------------------
SUBROUTINE SETLOG
SUBROUTINE SETLOG(ifecho)
C
C Subroutine to initialize logical flags
C
......@@ -9,6 +9,9 @@ C
INCLUDE 'TSTEP'
INCLUDE 'CTIMER'
INCLUDE 'ADJOINT'
logical ifecho
COMMON /CPRINT/ IFPRINT
C
common /nekcb/ cb
......@@ -98,7 +101,7 @@ C
CALL GLLOG(IFNONL(IFIELD),.TRUE.)
400 CONTINUE
C
IF (NIO.EQ.0) THEN
IF (NIO.EQ.0 .AND. ifecho) THEN
WRITE (6,*) 'IFTRAN =',IFTRAN
WRITE (6,*) 'IFFLOW =',IFFLOW
WRITE (6,*) 'IFHEAT =',IFHEAT
......
......@@ -54,7 +54,7 @@ c-----------------------------------------------------------------------
call blank(path_mult(0) ,132)
call chcopy(path_mult(0), path_in, l)
else
write(6,*) 'Reading session file ...'
!write(6,*) 'Reading session file ...'
open (unit=8,file='SESSION.NAME',status='old',err=24)
21 read (8,*,END=22)
nlin = nlin + 1
......@@ -72,7 +72,8 @@ c-----------------------------------------------------------------------
11 format(a132)
close(8)
endif
write(6,*) 'Number of sessions:',nsessions
if (nsessions.gt.1)
$ write(6,*) 'Number of sessions:',nsessions
goto 23
24 ierr = 1
endif
......
......@@ -101,7 +101,7 @@ c COMMON /SCRCG/ DUMM10(LX1,LY1,LZ1,LELT,1)
call vrdsmsh ! verify mesh topology
call mesh_metrics ! print some metrics
call setlog ! Initalize logical flags
call setlog(.true.) ! Initalize logical flags
if (ifneknekc) call neknek_setup
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment