Skip to content

Commit 1de4a35

Browse files
Man ZhangMan Zhang
Man Zhang
authored and
Man Zhang
committed
revert changes as requested
1 parent 206e94f commit 1de4a35

File tree

2 files changed

+7
-2
lines changed

2 files changed

+7
-2
lines changed

physics/radlw_main.F90

+3-1
Original file line numberDiff line numberDiff line change
@@ -383,7 +383,7 @@ module rrtmg_lw
383383

384384
! --- public accessable subprograms
385385

386-
public rrtmg_lw_run, rlwinit
386+
public rrtmg_lw_run, rrtmg_lw_finalize, rlwinit
387387

388388

389389
! ================
@@ -1303,6 +1303,8 @@ subroutine rrtmg_lw_run &
13031303
!...................................
13041304
end subroutine rrtmg_lw_run
13051305
!-----------------------------------
1306+
subroutine rrtmg_lw_finalize ()
1307+
end subroutine rrtmg_lw_finalize
13061308

13071309
!> \ingroup module_radlw_main
13081310
!> \brief This subroutine performs calculations necessary for the initialization

physics/radsw_main.F90

+4-1
Original file line numberDiff line numberDiff line change
@@ -404,7 +404,7 @@ module rrtmg_sw
404404

405405
! --- public accessable subprograms
406406

407-
public rrtmg_sw_run, rswinit
407+
public rrtmg_sw_run, rrtmg_sw_finalize, rswinit
408408

409409
! =================
410410
contains
@@ -1381,6 +1381,9 @@ subroutine rrtmg_sw_run &
13811381
end subroutine rrtmg_sw_run
13821382
!-----------------------------------
13831383

1384+
subroutine rrtmg_sw_finalize ()
1385+
end subroutine rrtmg_sw_finalize
1386+
13841387
!>\ingroup module_radsw_main
13851388
!> This subroutine initializes non-varying module variables, conversion
13861389
!! factors, and look-up tables.

0 commit comments

Comments
 (0)