diff --git a/phys/module_ra_rrtmg_lwk.F b/phys/module_ra_rrtmg_lwk.F index 3a3bd72653..cbe398aa18 100644 --- a/phys/module_ra_rrtmg_lwk.F +++ b/phys/module_ra_rrtmg_lwk.F @@ -6136,9 +6136,10 @@ subroutine taugb6 ! (high key - nothing; high minor-cfc11, cfc12) ! !------------------------------------------------------------------------------- - use parrrtm_k, only : ngs5 + use parrrtm_k, only : ng6, ngs5 use rrlw_ref_k, only : chi_mls - use rrlw_kg06_k + use rrlw_kg06_k, only : fracrefa, absa, ka, ka_mco2, & + selfref, forref, cfc11adj, cfc12 ! ! Local ! @@ -9010,8 +9011,11 @@ subroutine cmbgb6 ! old band 6: 820-980 cm-1 (low - h2o; high - nothing) ! !------------------------------------------------------------------------------- - use parrrtm_k, only : mg, nbndlw, ngptlw - use rrlw_kg06 + use parrrtm_k, only : mg, nbndlw, ngptlw, ng6 + use rrlw_kg06_k, only : fracrefao, kao, kao_mco2, cfc11adjo, cfc12o, & + selfrefo, forrefo, & + fracrefa, absa, ka, ka_mco2, cfc11adj, cfc12, & + selfref, forref ! ! Local ! @@ -12818,7 +12822,8 @@ subroutine lw_kgb06(rrtmg_unit) ! etc. The second index runs over the g-channel (1 to 16). ! !------------------------------------------------------------------------------- - use rrlw_kg06_k + use rrlw_kg06_k, only : fracrefao, kao, kao_mco2, selfrefo, forrefo, & + cfc11adjo, cfc12o ! implicit none !