From 882d4850238b2c9b1ce81602fc68f9744a29df9d Mon Sep 17 00:00:00 2001 From: Denise Worthen Date: Fri, 26 Jul 2024 08:26:01 -0400 Subject: [PATCH] fix garbled print statement for scalars * don't print messages if nstate is not created --- mediator/med.F90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/mediator/med.F90 b/mediator/med.F90 index 4e1f916f..3133c7f8 100644 --- 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,*)