Hi Shinsung,
It could be as simple as increasing the limit (k>50) to a different number and allocate more than 50 in the temp_species_array.
You can change the source code of pm_waste_form.F90 and try to see if it has any problem running more than 50 radionuclides.
If you could share what simulation you are trying to run, I can suggest whether PFLOTRAN is the right code to do it or not. Typically a field scale simulator do not handle more than 50 species.
case('SPECIES')
allocate(temp_species_array(50))
do
call InputReadPflotranString(input,option)
if (InputCheckExit(input,option)) exit
k = k + 1
if (k > 50) then
option%io_buffer = 'More than 50 radionuclide species are &
&provided in the ' // trim(error_string) // &
', SPECIES block.'
call PrintErrMsgToDev(option, &
'if reducing to less than 50 is not &
&an option.')
endif
Best regards,
— Heeho D. Park
From:
pflotr...@googlegroups.com <pflotr...@googlegroups.com> on behalf of
오신성 <oss...@hanyang.ac.kr>
Date: Tuesday, July 16, 2024 at 5:08 AM
To: pflotr...@googlegroups.com <pflotr...@googlegroups.com>
Subject: [EXTERNAL] [pflotran-dev: 6269] I would like to evaluate more than 50 radionuclides.
You don't often get email from oss...@hanyang.ac.kr. Learn why this is important |
--
You received this message because you are subscribed to the Google Groups "pflotran-dev" group.
To unsubscribe from this group and stop receiving emails from it, send an email to
pflotran-dev...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/pflotran-dev/CADtQZfxAmoWiOxCexZOxgVBSay5YV9rtxOrCZ_Le32Qwu9GJqw%40mail.gmail.com.