fix compilation errors in rrtmgp

Author: grantfirl

physics/Radiation/RRTMGP/rrtmgp_lw_cloud_optics.F90

@@ -227,8 +227,6 @@ subroutine rrtmgp_lw_cloud_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_clouds,
     call mpi_bcast(lut_exticeLW,   size(lut_exticeLW),   MPI_DOUBLE_PRECISION, mpiroot, mpicomm, mpierr)
     call mpi_bcast(lut_ssaiceLW,   size(lut_ssaiceLW),   MPI_DOUBLE_PRECISION, mpiroot, mpicomm, mpierr)
     call mpi_bcast(lut_asyiceLW,   size(lut_asyiceLW),   MPI_DOUBLE_PRECISION, mpiroot, mpicomm, mpierr)
-#endif
-    
 #endif
 
     ! #######################################################################################

physics/Radiation/RRTMGP/rrtmgp_sw_cloud_optics.F90

@@ -152,8 +152,7 @@ subroutine rrtmgp_sw_cloud_optics_init( rrtmgp_root_dir, rrtmgp_sw_file_clouds,
     ! (ONLY master processor(0), if MPI enabled) 
     !
     ! #######################################################################################
-    if (mpirank .eq. mpiroot) then
-#endif 
+    if (mpirank .eq. mpiroot) then 
        write (*,*) 'Reading RRTMGP shortwave cloud data (LUT) ... '
        status = nf90_inq_varid(ncid,'radliq_lwr',varID)
        status = nf90_get_var(ncid,varID,radliq_lwrSW)
@@ -225,7 +224,6 @@ subroutine rrtmgp_sw_cloud_optics_init( rrtmgp_root_dir, rrtmgp_sw_file_clouds,
     call mpi_bcast(lut_asyiceSW,   size(lut_asyiceSW),    MPI_DOUBLE_PRECISION, mpiroot, mpicomm, mpierr)
 #endif
 
-#endif
     ! #######################################################################################
     !   
     ! Initialize RRTMGP DDT's...