fix garbled print statement for scalars

* don't print messages if nstate is not created
ESCOMP · Jul 26, 2024 · 882d485 · 882d485
1 parent 674f026
commit 882d485
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/mediator/med.F90 b/mediator/med.F90
@@ -2154,14 +2154,13 @@ subroutine DataInitialize(gcomp, rc)
              end if
              is_local%wrap%nx(n1) = nint(real_nx)
              is_local%wrap%ny(n1) = nint(real_ny)
-          endif
-          if (is_local%wrap%comp_present(n1)) then
+
              write(msgString,'(3i8)') is_local%wrap%nx(n1), is_local%wrap%ny(n1), is_local%wrap%ntile(n1)
+             call ESMF_LogWrite(trim(subname)//":"//trim(compname(n1))//":"//trim(msgString), ESMF_LOGMSG_INFO)
              if (maintask) then
                 write(logunit,'(a)') 'global nx,ny,ntile sizes for '//trim(compname(n1))//":"//trim(msgString)
              end if
-             call ESMF_LogWrite(trim(subname)//":"//trim(compname(n1))//":"//trim(msgString), ESMF_LOGMSG_INFO)
-          endif
+          end if
        end do
        if (maintask) write(logunit,*)