Skip to content

Commit 26e9f89

Browse files
committed
Apply changes to GPU code to allow for modified SW calling list
1 parent c8422f6 commit 26e9f89

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

src/physics/rrtmgp/radiation.F90

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1251,6 +1251,9 @@ subroutine radiation_tend( &
12511251
! Compute the gas optics (stored in atm_optics_sw).
12521252
! toa_flux is the reference solar source from RRTMGP data.
12531253
!$acc data copyin(kdist_sw%gas_props,pmid_day,pint_day,t_day,gas_concs_sw%gas_concs,atm_optics_sw%optical_props) &
1254+
!$acc copy(atm_optics_sw%optical_props%tau, &
1255+
!$acc atm_optics_sw%optical_props%g, &
1256+
!$acc atm_optics_sw%optical_props%ssa) &
12541257
!$acc copyout(toa_flux)
12551258
call rrtmgp_sw_gas_optics_run(dosw, 1, nday, nday, pmid_day, pint_day, t_day, &
12561259
gas_concs_sw, atm_optics_sw, kdist_sw, toa_flux, errmsg, errflg)

0 commit comments

Comments
 (0)