Merge pull request #403 from fischer-ncar/logic_length_nag

Add length to logic format descriptor, needed for nag.
ESCOMP · Aug 21, 2023 · abaef5f · abaef5f
2 parents b751891 + a6071c1
commit abaef5f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mediator/med_phases_ocnalb_mod.F90 b/mediator/med_phases_ocnalb_mod.F90
@@ -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