NAG is strict about the width parameter for logical output format spe…

…cificaion not being option, i.e. must specify!
esmf-org · Oct 25, 2024 · 276e7ea · 276e7ea
1 parent d50f8bf
commit 276e7ea
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/addon/NUOPC/src/NUOPC_Driver.F90 b/src/addon/NUOPC/src/NUOPC_Driver.F90
@@ -2427,7 +2427,7 @@ recursive subroutine InitializeIPDv02p5(driver, importState, exportState, &
         return  ! bail out
       ! optionally log info
       if (btest(verbosity,11)) then
-        write(msgString, "(A,l,A,I4)") trim(name)//&
+        write(msgString, "(A,L2,A,I4)") trim(name)//&
           ": InitializeDataComplete='"//trim(oldDataComplete)//&
           "', allUpdated=", allUpdated, ", updatedCount=", oldUpdatedCount
         call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc)
@@ -2503,7 +2503,7 @@ recursive subroutine InitializeIPDv02p5(driver, importState, exportState, &
 
       ! optionally log info
       if (btest(verbosity,11)) then
-        write(msgString, "(A,l,A,I4)") trim(name)//&
+        write(msgString, "(A,L2,A,I4)") trim(name)//&
           ": InitializeDataComplete='"//trim(newDataComplete)//&
           "', allUpdated=", allUpdated, ", updatedCount=", newUpdatedCount
         call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc)
@@ -2775,7 +2775,7 @@ recursive subroutine InitializeIPDv02p5Data(driver, importState, exportState,&
           return  ! bail out
 
         if (btest(verbosity,11)) then
-          write(msgString, "(A,l)") trim(name)//&
+          write(msgString, "(A,L2)") trim(name)//&
             ": loopDataDependentInitialize() returned with dataDepAllComplete: ",&
             is%wrap%dataDepAllComplete
           call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc)
@@ -3266,7 +3266,7 @@ recursive subroutine loopDataDependentInitialize(driver, &
             return  ! bail out
 
           if (btest(verbosity,11)) then
-            write(msgString, "(A,I4,A,L)") &
+            write(msgString, "(A,I4,A,L2)") &
               trim(name)//": component ", i, "="//trim(compName)//&
               ", dataComplete (global): ", (helperOut==petCount)
             call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc)
@@ -3377,7 +3377,7 @@ recursive subroutine loopDataDependentInitialize(driver, &
           if (helperOut > 0) someProgress=.true. ! toggle flag
 
           if (btest(verbosity,11)) then
-            write(msgString, "(A,I4,A,L)") &
+            write(msgString, "(A,I4,A,L2)") &
               trim(name)//": component ", i, "="//trim(compName)//&
               ", someProgress (global): ", someProgress
             call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc)
@@ -3391,7 +3391,7 @@ recursive subroutine loopDataDependentInitialize(driver, &
       if (present(dataDepAllComplete)) dataDepAllComplete=allComplete
 
       if (btest(verbosity,11)) then
-        write(msgString, "(A,l,A,l,A,l)") &
+        write(msgString, "(A,L2,A,L2,A,L2)") &
           trim(name)//": someProgress=", someProgress, ", allComplete=", &
           allComplete, ", present(dataDepAllComplete)=", &
           present(dataDepAllComplete)