Fix occasional RRTMG compile error encountered during linking stage

File rrtmg_sw_k_g.F90 contained subroutines that were not wrapped in a module. It appears this caused occasional compile problems for the initialization subroutine within rrtmg_sw_init.F90 which used the subroutines found in rrtmg_sw_k_g.F90. Signed-off-by: Lizzie Lundgren <[email protected]>
geoschem · Feb 3, 2022 · 947bb72 · 947bb72
1 parent d870172
commit 947bb72
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/GeosRad/rrtmg_sw_init.F90 b/GeosRad/rrtmg_sw_init.F90
@@ -40,6 +40,7 @@ subroutine rrtmg_sw_ini
       use parrrsw, only : mg, nbndsw, ngptsw
       use rrsw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl
       use rrsw_vsn, only: hvrini, hnamini
+      use rrtmg_sw_k_g
 
       real(kind=rb), parameter :: cpdair=1003.5     ! Specific heat capacity of dry air
                                                     ! at constant pressure at 273 K

diff --git a/GeosRad/rrtmg_sw_k_g.F90 b/GeosRad/rrtmg_sw_k_g.F90
@@ -3,6 +3,8 @@
 !     revision:  $Revision: 1.3 $
 !     created:   $Date: 2008/08/29 17:59:09 $
 
+      module rrtmg_sw_k_g
+
 !  --------------------------------------------------------------------------
 ! |                                                                          |
 ! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |
@@ -13,6 +15,14 @@
 ! |                                                                          |
 !  --------------------------------------------------------------------------
 
+      implicit none
+
+      contains
+
+!------------------------------------------------------------------
+! Public subroutines
+!------------------------------------------------------------------
+
 ! **************************************************************************
 !      subroutine sw_kgbnn
 ! **************************************************************************
@@ -63549,3 +63559,4 @@ subroutine sw_kgb29
 
       end subroutine sw_kgb29
 
+      end module rrtmg_sw_k_g