From 4cc4f2ba65e200f02cdab90e9b6b8f326cbff608 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Thu, 26 Apr 2018 12:13:55 -0600 Subject: [PATCH] Fix format statement that creates cpl aux hist file name Fixes ESMCI/cime#2504 --- src/drivers/mct/main/seq_hist_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/drivers/mct/main/seq_hist_mod.F90 b/src/drivers/mct/main/seq_hist_mod.F90 index 361bab2c90c..fb4ad4c7a5f 100644 --- a/src/drivers/mct/main/seq_hist_mod.F90 +++ b/src/drivers/mct/main/seq_hist_mod.F90 @@ -1150,7 +1150,7 @@ subroutine seq_hist_writeaux(infodata, EClock_d, comp, flow, aname, dname, & yy = yy + yr_offset end if call shr_cal_ymdtod2string(date_str, yy, mm, dd) - write(hist_file(found), "(a6)") & + write(hist_file(found), "(6a)") & trim(case_name),'.cpl.h',trim(aname),'.',trim(date_str), '.nc' else fk1 = 2