Skip to content

Efficient radaer #53

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

Draft
Alan J Hewitt (alanjhewitt) wants to merge 19 commits into
base: main
Choose a base branch
from
Draft

Efficient radaer #53

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
99bd7e5
refactor is possible but IF filter causes problems
alanjhewitt Sep 2, 2026
a1c4790
a note of the call inside nested loops. keep or remove.
alanjhewitt Sep 4, 2026
3962d5c
putting ideas together
alanjhewitt Sep 17, 2026
a907dde
Calculating the refractive index
alanjhewitt Sep 23, 2026
9516040
IF condition
alanjhewitt Oct 5, 2026
8521594
calculate nearest neighbour index
alanjhewitt Oct 5, 2026
651bad3
this is all the module - next to get declarations etc
alanjhewitt Oct 7, 2026
353c365
Some declarations
alanjhewitt Oct 8, 2026
b840a13
first try at declarations
alanjhewitt Oct 8, 2026
a864d02
Merge branch 'MetOffice:main' into efficient_radaer
alanjhewitt Oct 9, 2026
302de58
now calling new module
alanjhewitt Oct 9, 2026
361b447
call the new module
alanjhewitt Oct 9, 2026
34e69e6
build errors
alanjhewitt Oct 9, 2026
7bd94c2
build errors
alanjhewitt Oct 9, 2026
d8bdc20
build errors
alanjhewitt Oct 9, 2026
5bf69c8
probably last build error
alanjhewitt Oct 9, 2026
45d132d
run time error - because i switched mode and band loops
alanjhewitt Oct 12, 2026
d698a0f
debugging
alanjhewitt Oct 13, 2026
9c79a4a
maybe a threshold thing
alanjhewitt Oct 13, 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
10 changes: 3 additions & 7 deletions src/control/core/top_level/ukca_radaer_lfric_api_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -105,7 +105,7 @@ SUBROUTINE ukca_radaer_lfric_interface( &
cp_no3, cp_nn, cp_nh4, &
nmodes, ncp_max

USE ukca_radaer_band_average_mod, ONLY: ukca_radaer_band_average
USE ukca_radaer_band_average_faster_mod, ONLY: ukca_radaer_band_average_faster

USE ukca_radaer_compute_aod_mod, ONLY: ukca_radaer_compute_aod

Expand Down Expand Up @@ -313,7 +313,7 @@ SUBROUTINE ukca_radaer_lfric_interface( &
)

! Long wave ( e.g. ip_infra_red )
CALL ukca_radaer_band_average( &
CALL ukca_radaer_band_average_faster( &
! Fixed array dimensions (input)
npd_profile, &
npd_layer, &
Expand Down Expand Up @@ -367,8 +367,6 @@ SUBROUTINE ukca_radaer_lfric_interface( &
trindxrad, &
! Prescription of single-scattering albedo
ukca_radaer_presc_ssa, &
! Maxwell-Garnett mixing approach logical control switches
i_ukca_tune_bc, i_glomap_clim_tune_bc, &
! Band-averaged optical properties (output)
aer_lw_absorption, &
aer_lw_scattering, &
Expand All @@ -378,7 +376,7 @@ SUBROUTINE ukca_radaer_lfric_interface( &
! Short wave (e.g. ip_solar ) - only calculate on lit points
IF ( l_any_lit_points ) THEN

CALL ukca_radaer_band_average( &
CALL ukca_radaer_band_average_faster( &
! Fixed array dimensions (input)
npd_profile, &
npd_layer, &
Expand Down Expand Up @@ -432,8 +430,6 @@ SUBROUTINE ukca_radaer_lfric_interface( &
trindxrad, &
! Prescription of single-scattering albedo
ukca_radaer_presc_ssa, &
! Maxwell-Garnett mixing approach logical control switches
i_ukca_tune_bc, i_glomap_clim_tune_bc, &
! Band-averaged optical properties (output)
aer_sw_absorption, &
aer_sw_scattering, &
Expand Down
Loading
Loading