Remove bcast condition on precision.

llpcarson · Jan 27, 2020 · 28243f1 · 28243f1
1 parent 01725b4
commit 28243f1
Showing 1 changed file with 0 additions and 16 deletions.
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -294,22 +294,6 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     call MPI_BCAST(kminor_start_lower,              size(kminor_start_lower),     MPI_INTEGER,            mpiroot, mpicomm, mpierr)
     call MPI_BCAST(key_species,                     size(key_species),            MPI_INTEGER,            mpiroot, mpicomm, mpierr)
     call MPI_BCAST(band2gpt,                        size(band2gpt),               MPI_INTEGER,            mpiroot, mpicomm, mpierr)
-#ifndef SINGLE_PREC
-    call MPI_BCAST(band_lims,                       size(band_lims),              MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(press_ref,                       size(press_ref),              MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(temp_ref,                        size(temp_ref),               MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(kminor_lower,                    size(kminor_lower),           MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(kminor_upper,                    size(kminor_upper),           MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(scaling_gas_lower,               size(scaling_gas_lower),      MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(scaling_gas_upper,               size(scaling_gas_upper),      MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(vmr_ref,                         size(vmr_ref),                MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(kmajor,                          size(kmajor),                 MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(temp_ref_p,                      1,                            MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(temp_ref_t,                      1,                            MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(press_ref_trop,                  1,                            MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(totplnk,                         size(totplnk),                MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-    call MPI_BCAST(planck_frac,                     size(planck_frac),            MPI_DOUBLE_PRECISION,   mpiroot, mpicomm, mpierr)
-#else
     call MPI_BCAST(band_lims,                       size(band_lims),              MPI_REAL,               mpiroot, mpicomm, mpierr)
     call MPI_BCAST(press_ref,                       size(press_ref),              MPI_REAL,               mpiroot, mpicomm, mpierr)
     call MPI_BCAST(temp_ref,                        size(temp_ref),               MPI_REAL,               mpiroot, mpicomm, mpierr)