Skip to content

Commit

Permalink
Merge pull request #287 from fischer-ncar/nag-fix
Browse files Browse the repository at this point in the history
Fix missing field width for L edit descriptor for NAG
  • Loading branch information
fischer-ncar authored Jun 14, 2024
2 parents 7a522c8 + 096ff6a commit b4b3ac5
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion dglc/glc_comp_nuopc.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit b4b3ac5

Please sign in to comment.