Skip to content

Check on the integration option if only one cell #426

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
arjenmarkusdeltaresnl wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Check on the integration option if only one cell #426

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
0d0e377
Check on the integration option if only one cell
arjenmarkusdeltaresnl Dec 3, 2025
5bca2b2
DELWAQ-688: Use the correct variable for identifying the integration …
arjenmarkusdeltaresnl Dec 5, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions src/engines_gpl/waq/waq_io/inputs_block_3.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,7 @@ subroutine read_block_3_grid_layout(file_unit_list, file_name_list, filtype, nrf
use rd_token ! for the reading of tokens
use partmem ! for PARTicle tracking
use timers ! performance timers
use m_timer_variables, only: intsrt ! the integration option
use waq_netcdf_utils
use results, only: lncout ! output settings
use m_waq_memory_dimensions ! System characteristics
Expand Down Expand Up @@ -252,6 +253,11 @@ subroutine read_block_3_grid_layout(file_unit_list, file_name_list, filtype, nrf
endif
endif

if (num_cells == 1 .and. all( intsrt /= [1,5] )) then
write (file_unit, 2011)
call status%increase_error_count()
endif

! Read optional multiple grids
call read_multiple_grids(file_unit_list, num_cells, num_substances_total, num_substances_part, num_layers, &
gridps, num_cells_bottom, num_grids, syname, local_status)
Expand Down Expand Up @@ -559,6 +565,7 @@ subroutine read_block_3_grid_layout(file_unit_list, file_name_list, filtype, nrf

2000 format (//' Number of segments :', I15)
2010 format (/ ' ERROR, invalid number of segments:', I10)
2011 format (/ ' ERROR, number of segments is 1, use integration option 1 or 5')
2015 format (' ERROR, nr of volumes in Delwaq not equal to nr of volumes in Delpar:', I10)
2030 format (/ ' option selected for grid layout :', I2)
2040 format (/ ' ERROR, option for grid layout not implemented !!!!!')
Expand Down