Fix missing field width for L edit descriptor for NAG

ESCOMP · Jun 14, 2024 · 096ff6a · 096ff6a
1 parent 7a522c8
commit 096ff6a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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