diff --git a/physics/rrtmgp_lw_cloud_optics.F90 b/physics/rrtmgp_lw_cloud_optics.F90
index b3d36b070..6bdfc7b6e 100644
--- a/physics/rrtmgp_lw_cloud_optics.F90
+++ b/physics/rrtmgp_lw_cloud_optics.F90
@@ -90,9 +90,12 @@ subroutine rrtmgp_lw_cloud_optics_init(Model, mpicomm, mpirank, mpiroot, lw_clou
          npairsLWcldy                       !   
 
     ! Local variables
-    integer :: dimID,varID,status,ierr,ncid_lw_clds
+    integer :: dimID,varID,status,ncid_lw_clds
     character(len=264) :: lw_cloud_props_file
     integer,parameter :: max_strlen=256
+#ifdef MPI
+    integer :: ierr
+#ebdif
 
     ! Initialize
     errmsg = ''
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
index 45910376f..80ab8f0e2 100644
--- a/physics/rrtmgp_lw_gas_optics.F90
+++ b/physics/rrtmgp_lw_gas_optics.F90
@@ -114,6 +114,9 @@ subroutine rrtmgp_lw_gas_optics_init(Model, mpicomm, mpirank, mpiroot, lw_gas_pr
     integer,dimension(:),allocatable :: temp1,temp2,temp3,temp4, temp_log_array1, temp_log_array2, temp_log_array3, temp_log_array4
     character(len=264) :: lw_gas_props_file
     integer,parameter :: max_strlen=256
+#ifdef MPI
+    integer :: ierr
+#ebdif
 
     ! Initialize
     errmsg = ''
diff --git a/physics/rrtmgp_sw_cloud_optics.F90 b/physics/rrtmgp_sw_cloud_optics.F90
index c29bb2142..aa6888cbc 100644
--- a/physics/rrtmgp_sw_cloud_optics.F90
+++ b/physics/rrtmgp_sw_cloud_optics.F90
@@ -91,7 +91,9 @@ subroutine rrtmgp_sw_cloud_optics_init(Model,mpicomm, mpirank, mpiroot, sw_cloud
     ! Local variables
     integer :: status,ncid_sw_clds,dimid,varID
     character(len=264) :: sw_cloud_props_file
-
+#ifdef MPI
+    integer :: ierr
+#ebdif
     ! Initialize
     errmsg = ''
     errflg = 0
diff --git a/physics/rrtmgp_sw_gas_optics.F90 b/physics/rrtmgp_sw_gas_optics.F90
index 07329e430..a4080a837 100644
--- a/physics/rrtmgp_sw_gas_optics.F90
+++ b/physics/rrtmgp_sw_gas_optics.F90
@@ -108,6 +108,9 @@ subroutine rrtmgp_sw_gas_optics_init(Model,  mpicomm, mpirank, mpiroot, sw_gas_p
     integer :: status,ncid_sw,dimid,varID,iGas
     integer,dimension(:),allocatable :: temp1,temp2,temp3,temp4
     character(len=264) :: sw_gas_props_file
+#ifdef MPI
+    integer :: ierr
+#ebdif
 
     ! Initialize
     errmsg = ''