From 096ff6adce342c7059cadfc8a4c641c6f0f0aec8 Mon Sep 17 00:00:00 2001
From: Chris Fischer <fischer@ucar.edu>
Date: Fri, 14 Jun 2024 12:47:01 -0600
Subject: [PATCH] Fix missing field width for L edit descriptor for NAG

---
 dglc/glc_comp_nuopc.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dglc/glc_comp_nuopc.F90 b/dglc/glc_comp_nuopc.F90
index 09c858ff..f5b6c2a3 100644
--- a/dglc/glc_comp_nuopc.F90
+++ b/dglc/glc_comp_nuopc.F90
@@ -491,7 +491,7 @@ subroutine ModelAdvance(gcomp, rc)
     if (my_task == main_task) then
        call ESMF_TimeGet(currTime, timestring=timestring, rc=rc)
        if (ChkErr(rc,__LINE__,u_FILE_u)) return
-       write(logunit,'(a,l)') trim(timestring)//': valid_input for dglc is ',valid_inputs
+       write(logunit,'(a,l6)') trim(timestring)//': valid_input for dglc is ',valid_inputs
     end if
 
     ! determine if will write restart