Skip to content

Commit ec2a510

Browse files
committed
bring in update atmos phys
1 parent 36597ae commit ec2a510

3 files changed

Lines changed: 3 additions & 4 deletions

File tree

.gitmodules

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@
2929
[submodule "atmos_phys"]
3030
path = src/atmos_phys
3131
url = https://github.com/peverwhee/atmospheric_physics
32-
fxtag = b0cf14d631c641c69280f7b7ad81f61cc921af50
32+
fxtag = 76f3878cb09ea424b8b4412ab0239ae2f531902a
3333
fxrequired = AlwaysRequired
3434
fxDONOTUSEurl = https://github.com/ESCOMP/atmospheric_physics
3535

src/atmos_phys

Submodule atmos_phys updated 48 files

src/physics/rrtmgp/radiation.F90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -447,7 +447,6 @@ subroutine radiation_init(pbuf2d)
447447
! liquid budgets.
448448
integer :: history_budget_histfile_num ! history file number for budget fields
449449
integer :: ierr, istat, errflg
450-
character(len=5) :: gaslist_tmp(8)
451450

452451
integer :: dtime
453452
real(r8) :: dtime_r8
@@ -456,7 +455,7 @@ subroutine radiation_init(pbuf2d)
456455
!-----------------------------------------------------------------------
457456

458457
! Initialize available_gases object
459-
call rrtmgp_pre_init(nradgas, available_gases, gaslist_tmp, gaslist_lc, errmsg, errflg)
458+
call rrtmgp_pre_init(nradgas, available_gases, gaslist, gaslist_lc, errmsg, errflg)
460459
if (errflg /= 0) then
461460
call endrun(sub//': '//errmsg)
462461
end if

0 commit comments

Comments
 (0)