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