From c86aced86ee218ab02b4e308b23ed39ac79cb895 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Tue, 28 Aug 2018 14:44:15 -0600 Subject: [PATCH] physics/gfdl_cloud_microphys.F90: only write namelist to logunit if logunit>=0) --- physics/gfdl_cloud_microphys.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/gfdl_cloud_microphys.F90 b/physics/gfdl_cloud_microphys.F90 index 899e10613..d717f80bc 100644 --- a/physics/gfdl_cloud_microphys.F90 +++ b/physics/gfdl_cloud_microphys.F90 @@ -378,7 +378,7 @@ subroutine gfdl_cloud_microphys_init (me, master, nlunit, input_nml_file, loguni #endif ! write version number and namelist to log file - if (me == master) then + if (me==master .and. logunit>=0) then write (logunit, *) " ================================================================== " write (logunit, *) "gfdl_cloud_microphys_mod" write (logunit, nml = gfdl_cloud_microphysics_nml)