Remove unnecessary check npes>1 (ESCOMP#384)

Tag name (required for release branches):
Originator(s): cacraig

Description (include the issue title, and the keyword ['closes',
'fixes', 'resolves'] followed by the issue number):
 - closes ESCOMP#132 (npes > 1 check)

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
M       src/dynamics/utils/vert_coord.F90
M       src/physics/utils/physics_grid.F90
             - removed unnecessary NPES > 1 checks

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: All Pass

derecho/gnu/aux_sima: All Pass

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:

Author: cacraigucar

src/data/ref_pres.F90

@@ -94,13 +94,11 @@ subroutine ref_pres_readnl(nlfile)
          end if
       end if
 
-      if (npes > 1) then
-         ! Broadcast namelist variables
-         call mpi_bcast(trop_cloud_top_press,      1,  mpi_real8, masterprocid, mpicom, ierr)
-         call mpi_bcast(clim_modal_aero_top_press, 1,  mpi_real8, masterprocid, mpicom, ierr)
-         call mpi_bcast(do_molec_press,            1,  mpi_real8, masterprocid, mpicom, ierr)
-         call mpi_bcast(molec_diff_bot_press,      1,  mpi_real8, masterprocid, mpicom, ierr)
-      endif
+      ! Broadcast namelist variables
+      call mpi_bcast(trop_cloud_top_press,      1,  mpi_real8, masterprocid, mpicom, ierr)
+      call mpi_bcast(clim_modal_aero_top_press, 1,  mpi_real8, masterprocid, mpicom, ierr)
+      call mpi_bcast(do_molec_press,            1,  mpi_real8, masterprocid, mpicom, ierr)
+      call mpi_bcast(molec_diff_bot_press,      1,  mpi_real8, masterprocid, mpicom, ierr)
 
    end subroutine ref_pres_readnl
 

src/dynamics/utils/vert_coord.F90

@@ -67,10 +67,8 @@ subroutine vert_coord_readnl(nlfile)
          end if
       end if
 
-      if (npes > 1) then
-         ! Broadcast namelist variables
-         call mpi_bcast(pver, 1, mpi_integer, masterprocid, mpicom, ierr)
-      endif
+      ! Broadcast namelist variables
+      call mpi_bcast(pver, 1, mpi_integer, masterprocid, mpicom, ierr)
 
    end subroutine vert_coord_readnl
 

src/physics/utils/physics_grid.F90

@@ -285,14 +285,12 @@ subroutine phys_grid_init(hdim1_d_in, hdim2_d_in, dycore_name_in, &
                           file=__FILE__, line=__LINE__)
 
          ! We need a global minimum longitude and latitude
-         if (npes > 1) then
-            temp = lonmin
-            call MPI_allreduce(temp, lonmin, 1, MPI_INTEGER, MPI_MIN,         &
-                 mpicom, ierr)
-            temp = latmin
-            call MPI_allreduce(temp, latmin, 1, MPI_INTEGER, MPI_MIN,         &
-                 mpicom, ierr)
-         end if
+         temp = lonmin
+         call MPI_allreduce(temp, lonmin, 1, MPI_INTEGER, MPI_MIN,         &
+              mpicom, ierr)
+         temp = latmin
+         call MPI_allreduce(temp, latmin, 1, MPI_INTEGER, MPI_MIN,         &
+              mpicom, ierr)
          ! Create lon coord map which only writes from one of each unique lon
          where(latvals == latmin)
             coord_map(:) = grid_map(3, :)