Merge pull request #287 from fischer-ncar/nag-fix

Fix missing field width for L edit descriptor for NAG
ESCOMP · Jun 14, 2024 · b4b3ac5 · b4b3ac5
2 parents 7a522c8 + 096ff6a
commit b4b3ac5
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