Added ifdef(mpi) around declaration in initialization routines.

grantfirl · Dec 9, 2019 · fbd398f · fbd398f
1 parent 1bc898d
commit fbd398f
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 2 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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 = ''