revert changes as requested

NCAR · Jun 14, 2022 · 1de4a35 · 1de4a35
1 parent 206e94f
commit 1de4a35
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git 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
@@ -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.