Skip to content
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

Support variable solar irradiance factor #27

Merged
merged 9 commits into from
Jan 17, 2025
Merged

Support variable solar irradiance factor #27

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
fc8466a
Add multicolumn test for RRTMG_SW
brian-rose Jan 17, 2025
3253441
Give 2D value of adjes in test
brian-rose Jan 17, 2025
adaa078
Check the downwelling SW radiation
brian-rose Jan 17, 2025
9a1997b
start to mod fortran to allow array adjes
brian-rose Jan 17, 2025
97254a4
clearer test logic
brian-rose Jan 17, 2025
e16d76f
Update the Driver.f90 for array adjes
brian-rose Jan 17, 2025
c75db10
Fortran mods for variable adjes
brian-rose Jan 17, 2025
ba97190
Fix some mistakes but still broken
brian-rose Jan 17, 2025
64d673c
Undo damage
brian-rose Jan 17, 2025
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
4 changes: 2 additions & 2 deletions climlab_rrtmg/rrtmg_sw/Driver.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,7 @@ subroutine climlab_rrtmg_sw &
real(kind=rb), intent(in) :: asdif(ncol) ! UV/vis surface albedo: diffuse rad
real(kind=rb), intent(in) :: asdir(ncol) ! Near-IR surface albedo: diffuse rad
real(kind=rb), intent(in) :: coszen(ncol) ! Cosine of solar zenith angle
real(kind=rb), intent(in) :: adjes ! Flux adjustment for Earth/Sun distance
real(kind=rb), intent(in) :: adjes(ncol) ! Flux adjustment (Earth/Sun distance and/or zenith angle compensation)
integer(kind=im), intent(in) :: dyofyr ! Day of the year (used to get Earth/Sun
! distance if adjflx not provided)
real(kind=rb), intent(in) :: scon ! Solar constant (W/m2)
Expand Down Expand Up @@ -238,7 +238,7 @@ subroutine climlab_rrtmg_sw &
! These are not comments! Necessary directives to f2py to handle array dimensions
!f2py depend(ncol,nlay) play, plev, tlay, tlev
!f2py depend(ncol,nlay) h2ovmr,o3vmr,co2vmr,ch4vmr,n2ovmr,o2vmr
!f2py depend(ncol) tsfc, aldif, aldir, asdif, asdir, coszen
!f2py depend(ncol) tsfc, aldif, aldir, asdif, asdir, coszen, adjes
!f2py depend(ncol,nlay) tauaer,ssaaer,asmaer,ecaer
!f2py depend(ncol,nlay) reicmcl,relqmcl
!f2py depend(ncol,nlay) cldfmcl,ciwpmcl,clwpmcl,taucmcl,ssacmcl,asmcmcl,fsfcmcl
Expand Down
Loading
Loading