Removed redundant files and variable declarations

peterukk · Dec 16, 2022 · b88b1d9 · b88b1d9
1 parent 7554e83
commit b88b1d9
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 259 deletions.
diff --git a/driver/ecrad_ifs_driver_blocked.F90 b/driver/ecrad_ifs_driver_blocked.F90
@@ -130,9 +130,7 @@ program ecrad_ifs_driver
   integer :: jrepeat
 
   ! Loop index
-  integer :: jrl, ibeg, iend, il, ib, jlev
-
-
+  integer :: jrl, ibeg, iend, il, ib
 
   ! Are any variables out of bounds?
   logical :: is_out_of_bounds

diff --git a/ifs/radiation_setup.F90 b/ifs/radiation_setup.F90
@@ -130,7 +130,7 @@ SUBROUTINE SETUP_RADIATION_SCHEME(PRADIATION,LDOUTPUT,FILE_NAME)
     ! Verbosity of configuration information 0=none, 1=warning,
     ! 2=info, 3=progress, 4=detailed, 5=debug
     INTEGER(KIND=JPIM) :: IVERBOSESETUP
-    INTEGER(KIND=JPIM) :: ISTAT
+    !INTEGER(KIND=JPIM) :: ISTAT
 
     ! Data directory name
     CHARACTER(LEN=256) :: CL_DATA_DIR

diff --git a/ifsrrtm/rrtm_gasabs1a_140gp.F90 b/ifsrrtm/rrtm_gasabs1a_140gp.F90
diff --git a/include/rrtm_gasabs1a_140gp.intfb.h b/include/rrtm_gasabs1a_140gp.intfb.h