JHUAPL/kaiju
1
0
Fork 0
mirror of https://github.com/JHUAPL/kaiju.git synced 2026-01-09 18:57:53 -05:00
Code Issues Packages Projects Releases 1 Wiki Activity

fixing xml root

Browse Source
This commit is contained in:
Anthony
2024-09-26 15:30:11 -06:00
parent 90eb5c8ab2
commit 643bcdd62a
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/raiju/raijuStarter.F90
View File

@@ -58,13 +58,20 @@ module raijustarter
! Sets up Model; Grid and State must be set up separately
subroutine raijuInitModel(Model, iXML)
subroutine raijuInitModel(Model, inpXml)
type(raijuModel_T), intent(inout) :: Model
type(XML_Input_T) , intent(in) :: iXML
type(XML_Input_T) , intent(in) :: inpXml
character(len=strLen) :: tmpStr
type(XML_Input_T) :: iXML
real(rp) :: cfl0
! Make sure root is Kaiju/raiju
call inpXml%GetFileStr(tmpStr)
! Create new XML reader w/ RCM as root
iXML = New_XML_Input(trim(tmpStr),'Kaiju/RAIJU',.true.)
write(*,*) "raijuInitModel is starting"
! Assume we are running with others, but allow for solo run