From 64d70d9be31add56d794cc0e1cf87f9d1d7ccffa Mon Sep 17 00:00:00 2001 From: Nikhil Prabhu Date: Mon, 15 Nov 2021 14:39:29 +0100 Subject: [PATCH 1/2] user option to have no output f_out = none --- src/grid/DAMASK_grid.f90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index 7ffa6b80a..fcfe5853c 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -223,7 +223,11 @@ program DAMASK_grid loadCases(l)%r = step_discretization%get_asFloat('r', defaultVal= 1.0_pReal) loadCases(l)%f_restart = load_step%get_asInt('f_restart', defaultVal=huge(0)) - loadCases(l)%f_out = load_step%get_asInt('f_out', defaultVal=1) + if (load_step%get_asString('f_out',defaultVal='DAMASK') == 'none') then + loadCases(l)%f_out = huge(0) + else + loadCases(l)%f_out = load_step%get_asInt('f_out', defaultVal=1) + endif loadCases(l)%estimate_rate = (load_step%get_asBool('estimate_rate',defaultVal=.true.) .and. l>1) reportAndCheck: if (worldrank == 0) then @@ -276,7 +280,8 @@ program DAMASK_grid endif print'(a,f0.3)', ' t: ', loadCases(l)%t print'(a,i0)', ' N: ', loadCases(l)%N - print'(a,i0)', ' f_out: ', loadCases(l)%f_out + if (loadCases(l)%f_out < huge(0)) & + print'(a,i0)', ' f_out: ', loadCases(l)%f_out if (loadCases(l)%f_restart < huge(0)) & print'(a,i0)', ' f_restart: ', loadCases(l)%f_restart From 5768942fa59a2bd3124728a23df7fbe0489c0dd7 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Sat, 27 Nov 2021 14:11:30 -0500 Subject: [PATCH 2/2] use simplifed logic in PRIVATE --- PRIVATE | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PRIVATE b/PRIVATE index f730bcb8d..b42f31813 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit f730bcb8ddd7224011e70c57d0a5c03068532d2d +Subproject commit b42f31813bb00ad36042c226adba173df59ee646