From 56bec28779749ef62cd31a23a779db6492a68cdd Mon Sep 17 00:00:00 2001 From: Philippe Le Sager Date: Wed, 26 Aug 2026 14:22:11 +0200 Subject: [PATCH] ECE4 HotFix - Fix stratospheric aerosol vertical indexing --- ifs-source/arpifs/phys_radi/radiation_scheme.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ifs-source/arpifs/phys_radi/radiation_scheme.F90 b/ifs-source/arpifs/phys_radi/radiation_scheme.F90 index 60887a6b..0c281bec 100644 --- a/ifs-source/arpifs/phys_radi/radiation_scheme.F90 +++ b/ifs-source/arpifs/phys_radi/radiation_scheme.F90 @@ -735,7 +735,7 @@ SUBROUTINE RADIATION_SCHEME & ENDIF STRAT_AEROSOL%OD_SW(JAER,JLEV,KIDIA:KFDIA)=ZAODSTRAT(KIDIA:KFDIA,IJLEV,JSW_ORDERED_BIS) STRAT_AEROSOL%SSA_SW(JAER,JLEV,KIDIA:KFDIA) = & - &ZAODSTRAT(KIDIA:KFDIA,IJLEV,JSW_ORDERED_BIS)-ZAAODSTRAT(KIDIA:KFDIA,JLEV,JSW_ORDERED_BIS) + &ZAODSTRAT(KIDIA:KFDIA,IJLEV,JSW_ORDERED_BIS)-ZAAODSTRAT(KIDIA:KFDIA,IJLEV,JSW_ORDERED_BIS) STRAT_AEROSOL%G_SW(JAER,JLEV,KIDIA:KFDIA) = ZREFAODSTRAT(KIDIA:KFDIA,IJLEV,JSW_ORDERED_BIS) ENDDO @@ -748,7 +748,7 @@ SUBROUTINE RADIATION_SCHEME & ! CMIP7 wavelengts are already in right order STRAT_AEROSOL%OD_SW(JAER,JLEV,KIDIA:KFDIA)=ZAODSTRAT(KIDIA:KFDIA,IJLEV,JAER) STRAT_AEROSOL%SSA_SW(JAER,JLEV,KIDIA:KFDIA) = & - &ZAODSTRAT(KIDIA:KFDIA,IJLEV,JAER)-ZAAODSTRAT(KIDIA:KFDIA,JLEV,JAER) + &ZAODSTRAT(KIDIA:KFDIA,IJLEV,JAER)-ZAAODSTRAT(KIDIA:KFDIA,IJLEV,JAER) STRAT_AEROSOL%G_SW(JAER,JLEV,KIDIA:KFDIA) = ZREFAODSTRAT(KIDIA:KFDIA,IJLEV,JAER) ENDDO