Skip to content

Commit

Permalink
Add comp vm debug output.
Browse files Browse the repository at this point in the history
  • Loading branch information
@oehmke
oehmke committed Dec 23, 2024
1 parent 8e2a429 commit efc11fa
Showing 1 changed file with 184 additions and 3 deletions.
187 changes: 184 additions & 3 deletions src/Superstructure/Component/src/ESMF_GridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1396,7 +1396,11 @@ recursive subroutine ESMF_GridCompInitialize(gridcomp, keywordEnforcer, &
!------------------------------------------------------------------------------
integer :: localrc ! local return code
integer :: timeoutArg

character(ESMF_MAXSTR) :: name,logmsg
logical :: vmispresent
type(ESMF_VM) :: compVM
integer :: compPetCount

! initialize return code; assume routine not implemented
if (present(rc)) rc = ESMF_RC_NOT_IMPL
localrc = ESMF_RC_NOT_IMPL
Expand All @@ -1415,6 +1419,35 @@ recursive subroutine ESMF_GridCompInitialize(gridcomp, keywordEnforcer, &
timeoutArg = ESMF_DEFAULT_TIMEOUT ! default 1h
if (present(timeout)) timeoutArg = timeout

! BOB DEBUG
call ESMF_GridCompGet(gridcomp, name=name, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: Before init for ",trim(name)," comp VM petCount=",compPetCount

call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)


! call Comp method
call ESMF_CompExecute(gridcomp%compp, method=ESMF_METHOD_INITIALIZEIC, &
importState=importState, exportState=exportState, clock=clock, &
Expand All @@ -1432,6 +1465,35 @@ recursive subroutine ESMF_GridCompInitialize(gridcomp, keywordEnforcer, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

! BOB DEBUG
call ESMF_GridCompGet(gridcomp, name=name, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: After init for ",trim(name)," comp VM petCount=",compPetCount

call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)


! return successfully
if (present(rc)) rc = ESMF_SUCCESS
end subroutine ESMF_GridCompInitialize
Expand Down Expand Up @@ -1465,13 +1527,46 @@ recursive subroutine ESMF_GridCompInitializeAct(gridcomp, importState, &
!EOPI
!------------------------------------------------------------------------------
integer :: localrc ! local return code

character(ESMF_MAXSTR) :: name,logmsg
logical :: vmispresent
type(ESMF_VM) :: compVM
integer :: compPetCount

! initialize return code; assume routine not implemented
if (present(rc)) rc = ESMF_RC_NOT_IMPL
localrc = ESMF_RC_NOT_IMPL

ESMF_INIT_CHECK_DEEP(ESMF_GridCompGetInit,gridcomp,rc)

! BOB DEBUG
call ESMF_GridCompGet(gridcomp, name=name, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: Before init for ",trim(name)," comp VM petCount=",compPetCount

call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)


! call Comp method
call ESMF_CompExecute(gridcomp%compp, method=ESMF_METHOD_INITIALIZE, &
importState=importState, exportState=exportState, clock=clock, &
Expand All @@ -1480,6 +1575,36 @@ recursive subroutine ESMF_GridCompInitializeAct(gridcomp, importState, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return


! BOB DEBUG
call ESMF_GridCompGet(gridcomp, name=name, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: After init for ",trim(name)," comp VM petCount=",compPetCount

call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)


! return successfully
if (present(rc)) rc = ESMF_SUCCESS
end subroutine ESMF_GridCompInitializeAct
Expand Down Expand Up @@ -1880,7 +2005,11 @@ recursive subroutine ESMF_GridCompRun(gridcomp, keywordEnforcer, &
!------------------------------------------------------------------------------
integer :: localrc ! local return code
integer :: timeoutArg

character(ESMF_MAXSTR) :: name,logmsg
logical :: vmispresent
type(ESMF_VM) :: compVM
integer :: compPetCount

! initialize return code; assume routine not implemented
if (present(rc)) rc = ESMF_RC_NOT_IMPL
localrc = ESMF_RC_NOT_IMPL
Expand All @@ -1899,6 +2028,35 @@ recursive subroutine ESMF_GridCompRun(gridcomp, keywordEnforcer, &
timeoutArg = ESMF_DEFAULT_TIMEOUT ! default 1h
if (present(timeout)) timeoutArg = timeout

! BOB DEBUG
call ESMF_GridCompGet(gridcomp, name=name, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: Before run for ",trim(name)," comp VM petCount=",compPetCount

call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)


! call Comp method
call ESMF_CompExecute(gridcomp%compp, method=ESMF_METHOD_RUNIC, &
importState=importState, exportState=exportState, clock=clock, &
Expand All @@ -1916,6 +2074,29 @@ recursive subroutine ESMF_GridCompRun(gridcomp, keywordEnforcer, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return


! BOB DEBUG
call ESMF_GridCompGet(gridcomp, vmispresent=vmispresent, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

compPetCount=-1
if (vmispresent) then
call ESMF_GridCompGet(gridcomp, vm=compVM, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return

call ESMF_VMGet(compvm, petCount=compPetCount, rc=localrc)
if (ESMF_LogFoundError(localrc, &
ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
endif

write(logmsg,*) "BOB: After run for ",trim(name)," comp VM petCount=",compPetCount
call ESMF_LogWrite(logmsg,ESMF_LOGMSG_DEBUG)

! return successfully
if (present(rc)) rc = ESMF_SUCCESS
end subroutine ESMF_GridCompRun
Expand Down

0 comments on commit efc11fa

Please sign in to comment.