Add length to logic format.

ESCOMP · Aug 21, 2023 · a6071c1 · a6071c1
1 parent b751891
commit a6071c1
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