Skip to content

Remove check for optional diagnostic data array #49

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

Merged
James Bruten (james-bruten-mo) merged 7 commits into from
Oct 22, 2026
Merged

Remove check for optional diagnostic data array #49

Changes from 3 commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
69fe1d3
Remove check for presence of optional diagnostic data arrays, and set…
mcdalvi Sep 16, 2026
e49ceff
minor
mcdalvi Sep 16, 2026
13b4287
Update code for in other version of the routine.
mcdalvi Sep 16, 2026
00223c7
Another fix - routine checks for 2-D diag group by default, instead o…
mcdalvi Sep 23, 2026
ad27d4d
Remove check for status flags, as array will anyway be populated only…
mcdalvi Sep 23, 2026
e846208
Added name to CONTRIBUTORS.md
mcdalvi Oct 6, 2026
2db38d0
Merge branch 'main' into rem_diag_array_check
james-bruten-mo Oct 22, 2026
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
68 changes: 10 additions & 58 deletions src/control/core/interface/ukca_diagnostics_set_ptrs_mod.F90
View file
Open in desktop

@alanjhewitt Alan J Hewitt (alanjhewitt) Sep 18, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me

Original file line number Diff line number Diff line change
Expand Up @@ -169,20 +169,8 @@ SUBROUTINE set_diag_ptrs_1d_domain(error_code_ptr, ukca_config, diagnostics, &
ELSE

! No request array set up for this group

diagnostics%n_request(dgroup_flat_real) = 0

! Check data array is absent
IF (PRESENT(data_flat_real)) THEN
error_code_ptr = errcode_diag_mismatch
IF (ASSOCIATED(diag2d_copy_out)) THEN
message_txt = message_txt_data_array_redundant // ' (flat real group)'
ELSE
message_txt = &
'Array present for unrequested diagnostic output (flat real group)'
END IF
END IF

END IF

IF (error_code_ptr > 0) THEN
Expand Down Expand Up @@ -235,22 +223,8 @@ SUBROUTINE set_diag_ptrs_1d_domain(error_code_ptr, ukca_config, diagnostics, &
ELSE

! No request array set up for this group

diagnostics%n_request(dgroup_fullht_real) = 0

! Check data array is absent
IF (PRESENT(data_fullht_real)) THEN
error_code_ptr = errcode_diag_mismatch
IF (ASSOCIATED(diag3d_copy_out)) THEN
message_txt = message_txt_data_array_redundant // &
' (full height real group)'
ELSE
message_txt = &
'Array present for unrequested diagnostic output ' // &
'(full height real group)'
END IF
END IF

END IF

IF (error_code_ptr > 0) THEN
Expand All @@ -261,7 +235,7 @@ SUBROUTINE set_diag_ptrs_1d_domain(error_code_ptr, ukca_config, diagnostics, &
END IF

! Record number of spatial dimensions in use for each diagnostic group
! and set pointers
! and set pointers only if any diagnostics are requested in this call.

IF (ASSOCIATED(diag2d_copy_out)) THEN
diagnostics%dimension_out(dgroup_flat_real) = imdi
Expand All @@ -275,13 +249,15 @@ SUBROUTINE set_diag_ptrs_1d_domain(error_code_ptr, ukca_config, diagnostics, &
diagnostics%dimension_out(dgroup_fullht_real) = 1
END IF

IF (PRESENT(data_flat_real)) THEN
IF ( PRESENT(data_flat_real) .AND. &
diagnostics%n_request(dgroup_flat_real) > 0 ) THEN
diagnostics%value_0d_real_ptr => data_flat_real
ELSE
NULLIFY(diagnostics%value_0d_real_ptr)
END IF

IF (PRESENT(data_fullht_real)) THEN
IF ( PRESENT(data_fullht_real) .AND. &
diagnostics%n_request(dgroup_fullht_real) > 0 ) THEN
diagnostics%value_1d_real_ptr => data_fullht_real
ELSE
NULLIFY(diagnostics%value_1d_real_ptr)
Expand Down Expand Up @@ -408,20 +384,8 @@ SUBROUTINE set_diag_ptrs_3d_domain(error_code_ptr, ukca_config, diagnostics, &
ELSE

! No request array set up for this group

diagnostics%n_request(dgroup_flat_real) = 0

! Check data array is absent
IF (PRESENT(data_flat_real)) THEN
error_code_ptr = errcode_diag_mismatch
IF (ASSOCIATED(diag2d_copy_out)) THEN
message_txt = message_txt_data_array_redundant // ' (flat real group)'
ELSE
message_txt = &
'Array present for unrequested diagnostic output (flat real group)'
END IF
END IF

END IF

IF (error_code_ptr > 0) THEN
Expand Down Expand Up @@ -476,22 +440,8 @@ SUBROUTINE set_diag_ptrs_3d_domain(error_code_ptr, ukca_config, diagnostics, &
ELSE

! No request array set up for this group

diagnostics%n_request(dgroup_fullht_real) = 0

! Check data array is absent
IF (PRESENT(data_fullht_real)) THEN
error_code_ptr = errcode_diag_mismatch
IF (ASSOCIATED(diag3d_copy_out)) THEN
message_txt = message_txt_data_array_redundant // &
' (full height real group)'
ELSE
message_txt = &
'Array present for unrequested diagnostic output ' // &
'(full height real group)'
END IF
END IF

END IF

IF (error_code_ptr > 0) THEN
Expand All @@ -502,7 +452,7 @@ SUBROUTINE set_diag_ptrs_3d_domain(error_code_ptr, ukca_config, diagnostics, &
END IF

! Record number of spatial dimensions in use for each diagnostic group
! and set pointers
! and set pointers only if any diagnostics are requested in this call.

IF (ASSOCIATED(diag2d_copy_out)) THEN
diagnostics%dimension_out(dgroup_flat_real) = imdi
Expand All @@ -516,13 +466,15 @@ SUBROUTINE set_diag_ptrs_3d_domain(error_code_ptr, ukca_config, diagnostics, &
diagnostics%dimension_out(dgroup_fullht_real) = 3
END IF

IF (PRESENT(data_flat_real)) THEN
IF (PRESENT(data_flat_real) .AND. &
diagnostics%n_request(dgroup_flat_real) > 0 ) THEN
diagnostics%value_2d_real_ptr => data_flat_real
ELSE
NULLIFY(diagnostics%value_2d_real_ptr)
END IF

IF (PRESENT(data_fullht_real)) THEN
IF (PRESENT(data_fullht_real) .AND. &
diagnostics%n_request(dgroup_fullht_real) > 0 ) THEN
diagnostics%value_3d_real_ptr => data_fullht_real
ELSE
NULLIFY(diagnostics%value_3d_real_ptr)
Expand Down
Loading