Skip to content

Commit e252454

Browse files
authored
Remove unused pver argument in press_lim_idx (match ESCOMP/CAM) (ESCOMP#399)
Tag name (required for release branches): Originator(s): @jimmielin Description (include the issue title, and the keyword ['closes', 'fixes', 'resolves'] followed by the issue number): - remove unused `pver` argument in `press_lim_idx` to match the function interface in ESCOMP/CAM (https://github.com/ESCOMP/CAM/blob/cam_development/src/physics/cam/ref_pres.F90#L176) Describe any changes made to build system: N/A Describe any changes made to the namelist: N/A List any changes to the defaults for the input datasets (e.g. boundary datasets): N/A List all files eliminated and why: N/A List all files added and what they do: N/A List all existing files that have been modified, and describe the changes: (Helpful git command: `git diff --name-status development...<your_branch_name>`) ``` M src/data/ref_pres.F90 - remove unused `pver` argument in `press_lim_idx` to match the function interface in ESCOMP/CAM ``` If there are new failures (compared to the `test/existing-test-failures.txt` file), have them OK'd by the gatekeeper, note them here, and add them to the file. If there are baseline differences, include the test and the reason for the diff. What is the nature of the change? Roundoff? derecho/intel/aux_sima: derecho/gnu/aux_sima: If this changes climate describe any run(s) done to evaluate the new climate in enough detail that it(they) could be reproduced: CAM-SIMA date used for the baseline comparison tests if different than latest:
1 parent 1020c38 commit e252454

File tree

1 file changed

+4
-5
lines changed

1 file changed

+4
-5
lines changed

src/data/ref_pres.F90

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -151,17 +151,17 @@ subroutine ref_pres_init(pref_edge_in, pref_mid_in, num_pr_lev_in)
151151
pref_mid_norm = pref_mid/psurf_ref
152152

153153
! Find level corresponding to the top of troposphere clouds.
154-
trop_cloud_top_lev = press_lim_idx(pver, trop_cloud_top_press, &
154+
trop_cloud_top_lev = press_lim_idx(trop_cloud_top_press, &
155155
top=.true.)
156156

157157
! Find level corresponding to the top for MAM processes.
158-
clim_modal_aero_top_lev = press_lim_idx(pver, clim_modal_aero_top_press, &
158+
clim_modal_aero_top_lev = press_lim_idx(clim_modal_aero_top_press, &
159159
top=.true.)
160160

161161
! Find level corresponding to the molecular diffusion bottom.
162162
do_molec_diff = (ptop_ref < do_molec_press)
163163
if (do_molec_diff) then
164-
nbot_molec = press_lim_idx(pver, molec_diff_bot_press, &
164+
nbot_molec = press_lim_idx(molec_diff_bot_press, &
165165
top=.false.)
166166
end if
167167

@@ -194,12 +194,11 @@ end subroutine ref_pres_init
194194
!====================================================================================
195195

196196
! Convert pressure limiters to the appropriate level.
197-
pure function press_lim_idx(pver, pres, top) result(lev_idx_lim)
197+
pure function press_lim_idx(pres, top) result(lev_idx_lim)
198198

199199
use vert_coord, only: index_top_layer, index_bottom_layer
200200

201201
! Input arguments:
202-
integer, intent(in) :: pver ! Number of vertical levels
203202
real(kind_phys), intent(in) :: pres ! Air pressure (Pa)
204203
logical, intent(in) :: top ! Is this a top or bottom limit?
205204

0 commit comments

Comments
 (0)