diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90
index dd74408bc..78315f6bf 100644
--- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90
+++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90
@@ -1886,7 +1886,7 @@ subroutine SetServices ( GC, RC )
    VERIFY_(STATUS)
 
    call MAPL_AddConnectivity ( GC,                                &
-         SHORT_NAME  = (/'ALH', 'KM', 'RI'/),                                 &
+          SHORT_NAME  = (/'ALH', 'KM ', 'RI '/),                                &
          DST_ID      =  MOIST,                                     &
          SRC_ID      =  TURBL,                                      &
                                                         RC=STATUS  )
diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90
index 22bb0cc4f..3688c141a 100644
--- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90
+++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90
@@ -5949,7 +5949,7 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
        call MAPL_TimerOn (MAPL,"---AERO_ACTIVATE")
        
        
-       if ((USE_AEROSOL_NN) .and. not (USE_NCLOUD_CLIM)) then
+       if ((USE_AEROSOL_NN) .and. .not. (USE_NCLOUD_CLIM)) then
          ! get veritical velocity
          if (all(W == 0.0)) then
            TMP3D = -OMEGA/(MAPL_GRAV*PLmb*100.0/(MAPL_RGAS*T))
diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/Process_Library.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/Process_Library.F90
index 82a1fa325..7f553db15 100644
--- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/Process_Library.F90
+++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/Process_Library.F90
@@ -10,6 +10,7 @@ module GEOSmoist_Process_Library
   use ESMF
   use MAPL
   use GEOS_UtilsMod
+  use module_mp_radar
   !use Aer_Actv_Single_Moment
   !use aer_cloud
 
@@ -4061,8 +4062,6 @@ END FUNCTION GAMMLN
 
    subroutine init_refl10cm ()
 
-      USE module_mp_radar
-
       IMPLICIT NONE
 
       integer :: n
@@ -4196,8 +4195,6 @@ subroutine calc_refl10cm (qv1d, qr1d, nr1d, qs1d, qg1d, &
                t1d, p1d, dBZ, rand1, kts, kte, ii, jj, &
                vt_dBZ, first_time_step, ktopin, kbotin)
 
-      USE module_mp_radar
- 
       IMPLICIT NONE
 
 !..Sub arguments