Debug messages and flag fix

This commit is contained in:
Anthony
2025-09-10 11:02:47 -06:00
parent a46c66a774
commit 44370b4742
3 changed files with 11 additions and 4 deletions

View File

@@ -30,6 +30,12 @@ module raijuBCs
doWholeDomain = .false.
endif
if(doWholeDomain) then
write(*,*)"applyRaijuBCs: doWholeDomain=T"
else
write(*,*)"applyRaijuBCs: doWholeDomain=F"
endif
call calcMomentIngestionLocs(Model, Grid, State, doWholeDomain, doMomentIngest)
call applyMomentIngestion(Model, Grid, State, doMomentIngest)

View File

@@ -101,8 +101,11 @@ module raijuColdStartHelper
cs%lastEval = t0
cs%lastTarget = dstTarget
cs%doneFirstCS = .true. ! Whether we do anything or not, we were at least called once
if (dstTarget > 0) then ! We got nothing to contribute
if (dstTarget > 0) then ! We've got nothing to contribute
write(*,*)"RAIJU coldstart not adding anything"
write(*,*)'doAccumulate=',doAccumulate
return
endif
@@ -154,8 +157,6 @@ module raijuColdStartHelper
State%eta = etaCS
endif
State%coldStarter%doneFirstCS = .true.
end subroutine raijuGeoColdStart

View File

@@ -44,7 +44,7 @@ module raijuPreAdvancer
call applyRaijuBCs(Model, Grid, State, doWholeDomainO=State%isFirstCpl) ! If fullEtaMap=True, mom2eta map is applied to the whole domain
call Toc("BCs")
! Handle plasmaasphere refilling for the full step about to happen
! Handle plasmasphere refilling for the full step about to happen
call plasmasphereRefill(Model,Grid,State)
! Handle edge cases that may effect the validity of information carried over from last coupling period