From 8ce86cdf74e6d14b393e23f121064e356671e80d Mon Sep 17 00:00:00 2001 From: Tony Craig Date: Thu, 20 Sep 2018 13:03:52 -0700 Subject: [PATCH] update pgi optimzation to address reproducibility problems (#2) --- cicecore/cicedynB/general/ice_init.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cicecore/cicedynB/general/ice_init.F90 b/cicecore/cicedynB/general/ice_init.F90 index 1036ad79a..330419198 100644 --- a/cicecore/cicedynB/general/ice_init.F90 +++ b/cicecore/cicedynB/general/ice_init.F90 @@ -878,9 +878,9 @@ subroutine input_data write(nu_diag,1020) ' kcatbound = ', & kcatbound if (kdyn == 1) then - write(nu_diag,1020) ' kdyn = evp ', kdyn + write(nu_diag,1021) ' kdyn = ','evp ', kdyn elseif (kdyn == 2) then - write(nu_diag,1020) ' kdyn = eap ', kdyn + write(nu_diag,1021) ' kdyn = ','eap ', kdyn else write(nu_diag,1020) ' kdyn = ', kdyn endif @@ -1119,6 +1119,7 @@ subroutine input_data 1005 format (a30,2x,f9.6) ! float 1010 format (a30,2x,l6) ! logical 1020 format (a30,2x,i6) ! integer + 1021 format (a30,2x,a8,i6) ! char, int 1030 format (a30, a8) ! character 1040 format (a30,2x,6i6) ! integer 1050 format (a30,2x,6a6) ! character