Revert the init_atm_case_mtn_wave routine to v8.3.1

This commit reverts all changes to the init_atm_case_mtn_wave routine since
the v8.3.1 tag. These changes are not strictly necessary to the initial LES
capability, and they can be re-introduced separately in future.

Author: mgduda

src/core_init_atmosphere/mpas_init_atm_cases.F

@@ -2034,7 +2034,6 @@ subroutine init_atm_case_mtn_wave(dminfo, mesh, nCells, nVertLevels, state, diag
       integer, dimension(:), pointer :: nEdgesOnEdge, nEdgesOnCell
       integer, dimension(:,:), pointer :: edgesOnEdge, cellsOnEdge, cellsOnCell
       real (kind=RKIND), dimension(:,:), pointer :: weightsOnEdge
-      real (kind=RKIND), pointer :: x_period, y_period
 
       integer :: iCell, iCell1, iCell2 , iEdge, ivtx, i, k, nz, itr, cell1, cell2, nz1
       integer, pointer :: nEdges, maxEdges, nCellsSolve, nVertices
@@ -2093,8 +2092,6 @@ subroutine init_atm_case_mtn_wave(dminfo, mesh, nCells, nVertLevels, state, diag
       call mpas_pool_get_array(mesh, 'kiteAreasOnVertex', kiteAreasOnVertex)
       call mpas_pool_get_array(mesh, 'nominalMinDc', nominalMinDc)
 
-      call mpas_pool_get_config(mesh, 'x_period', x_period)
-      call mpas_pool_get_config(mesh, 'y_period', y_period)
       call mpas_pool_get_config(mesh, 'on_a_sphere', on_a_sphere)
       call mpas_pool_get_config(mesh, 'sphere_radius', sphere_radius)
 
@@ -2136,8 +2133,6 @@ subroutine init_atm_case_mtn_wave(dminfo, mesh, nCells, nVertLevels, state, diag
       areaTriangle(:) = areaTriangle(:) * a_scale**2.0
       kiteAreasOnVertex(:,:) = kiteAreasOnVertex(:,:) * a_scale**2.0
       nominalMinDc = nominalMinDc * a_scale
-      x_period = x_period * a_scale
-      y_period = y_period * a_scale
 
 
       call mpas_pool_get_dimension(mesh, 'nEdges', nEdges)