From 1de4a352a0fe7f2f0f980e0b258c33cd1bde1b18 Mon Sep 17 00:00:00 2001
From: Man Zhang <man.zhang@Mzhang-lt.local>
Date: Tue, 14 Jun 2022 16:50:35 -0600
Subject: [PATCH] revert changes as requested

---
 physics/radlw_main.F90 | 4 +++-
 physics/radsw_main.F90 | 5 ++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/physics/radlw_main.F90 b/physics/radlw_main.F90
index 5a739a702..d6fa6f6b4 100644
--- a/physics/radlw_main.F90
+++ b/physics/radlw_main.F90
@@ -383,7 +383,7 @@ module rrtmg_lw
 
 !  ---  public accessable subprograms
 
-      public rrtmg_lw_run, rlwinit
+      public rrtmg_lw_run, rrtmg_lw_finalize, rlwinit
 
 
 ! ================
@@ -1303,6 +1303,8 @@ subroutine rrtmg_lw_run                                           &
 !...................................
       end subroutine rrtmg_lw_run
 !-----------------------------------
+      subroutine rrtmg_lw_finalize ()
+      end subroutine rrtmg_lw_finalize 
 
 !> \ingroup module_radlw_main
 !> \brief This subroutine performs calculations necessary for the initialization
diff --git a/physics/radsw_main.F90 b/physics/radsw_main.F90
index 742537a50..8ecc1d9df 100644
--- a/physics/radsw_main.F90
+++ b/physics/radsw_main.F90
@@ -404,7 +404,7 @@ module rrtmg_sw
 
 !  ---  public accessable subprograms
 
-      public rrtmg_sw_run, rswinit
+      public rrtmg_sw_run, rrtmg_sw_finalize, rswinit
 
 ! =================
       contains
@@ -1381,6 +1381,9 @@ subroutine rrtmg_sw_run                                           &
       end subroutine rrtmg_sw_run
 !-----------------------------------
 
+      subroutine rrtmg_sw_finalize ()
+      end subroutine rrtmg_sw_finalize
+
 !>\ingroup module_radsw_main
 !> This subroutine initializes non-varying module variables, conversion
 !! factors, and look-up tables.