Skip to content
Open
Show file tree
Hide file tree
Changes from 2 commits
Commits
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
1 change: 1 addition & 0 deletions CONTRIBUTORS.md
Original file line number Diff line number Diff line change
Expand Up @@ -7,3 +7,4 @@
| jennyhickson | Jenny Hickson | Met Office | 2025-12-10 |
| mo-marqh | Mark Hedley | Met Office | 2025-12-11 |
| MatthewHambley | Matthew Hambley | Met Office | 2025-12-15 |
| tommbendall | Thomas Bendall | Met Office | 2026-01-15 |
Original file line number Diff line number Diff line change
Expand Up @@ -83,9 +83,11 @@ subroutine wth_to_w0_average_code(nlayers, &
! Internal variables
integer(kind=i_def) :: df, k

do k = 0, nlayers
do df = 1,4 ! Loop at the Bottom
field_w0(map_w0(df) + k) = field_w0(map_w0(df) + k) + field_wth(map_wtheta(1) + k)*rmultiplicity_w0(map_w0(df) + k)
do df = 1, 4 ! Use bottom four W0 DoFs in cell
do k = 0, nlayers
! Use rmultiplicity from bottom layer to ensure appropriate average
field_w0(map_w0(df) + k) = field_w0(map_w0(df) + k) &
+ field_wth(map_wtheta(1) + k)*rmultiplicity_w0(map_w0(df))
end do
end do

Expand Down