no 5D output at t=0

103674a8 · Antoine Cyril David Hoffmann · 3bc30641 · 103674a8
Commit 103674a8 authored 4 years ago by Antoine Cyril David Hoffmann
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -213,7 +213,7 @@ SUBROUTINE diagnose(kstep)
     END IF

     !                       2.4   3d profiles
-     IF (nsave_5d .GT. 0) THEN
+     IF (nsave_5d .GT. 0 .AND. cstep .GT. 0) THEN
        IF (MOD(cstep, nsave_5d) == 0) THEN
           CALL diagnose_5d
        END IF