Skip to content

Commit

Permalink
Merge pull request #403 from fischer-ncar/logic_length_nag
Browse files Browse the repository at this point in the history
Add length to logic format descriptor, needed for nag.
  • Loading branch information
jedwards4b authored Aug 21, 2023
2 parents b751891 + a6071c1 commit abaef5f
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion mediator/med_phases_ocnalb_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -242,7 +242,7 @@ subroutine med_phases_ocnalb_init(gcomp, ocnalb, rc)
call ESMF_LogWrite(trim(msg), ESMF_LOGMSG_INFO)
end if
end if
write(msg,'(A,l)') trim(subname)//': use_nextswcday setting is ',use_nextswcday
write(msg,'(A,l1)') trim(subname)//': use_nextswcday setting is ',use_nextswcday
call ESMF_LogWrite(trim(msg), ESMF_LOGMSG_INFO)

if (dbug_flag > 5) then
Expand Down

0 comments on commit abaef5f

Please sign in to comment.