From 10044d4a9c7e4a9b21e628e41e58f808742718e3 Mon Sep 17 00:00:00 2001 From: Antoine Hoffmann <antoine.hoffmann@epfl.ch> Date: Wed, 5 Jul 2023 13:47:47 +0200 Subject: [PATCH] New terminal output --- src/diagnose.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/diagnose.F90 b/src/diagnose.F90 index 9f4bf819..4abfd09f 100644 --- a/src/diagnose.F90 +++ b/src/diagnose.F90 @@ -1,7 +1,7 @@ SUBROUTINE diagnose(kstep) ! Diagnostics, writing simulation state to disk USE basic, ONLY: lu_in, chrono_runt, cstep, dt, time, tmax, display_h_min_s - USE diagnostics_par, ONLY: input_fname, diag_mode + USE diagnostics_par, ONLY: input_fname, diag_mode, nsave_0d USE processing, ONLY: pflux_x, hflux_x USE parallel, ONLY: my_id IMPLICIT NONE @@ -25,8 +25,10 @@ SUBROUTINE diagnose(kstep) END SELECT ! Terminal info - IF ((kstep .GE. 0) .AND. (MOD(cstep, INT(1.0/dt)) == 0) .AND. (my_id .EQ. 0)) THEN - WRITE(*,"(A,F6.0,A1,F6.0,A8,G10.2,A8,G10.2,A)")'|t/tmax = ', time,"/",tmax,'| Gxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|' + ! IF ((kstep .GE. 0) .AND. (MOD(cstep, INT(1.0/dt)) == 0) .AND. (my_id .EQ. 0)) & + ! WRITE(*,"(A,F6.0,A1,F6.0,A8,G10.2,A8,G10.2,A)")'|t/tmax = ', time,"/",tmax,'| Gxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|' + IF ((kstep .GE. 0) .AND. (MOD(cstep, nsave_0d) == 0) .AND. (my_id .EQ. 0)) THEN + WRITE(*,"(A,F8.2,A8,G10.2,A8,G10.2,A)")'|t = ', time,'| Pxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|' ENDIF END SUBROUTINE diagnose -- GitLab