fprettify

geohackweek · Jan 26, 2024 · af792f5 · af792f5
1 parent dff7833
commit af792f5
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 15 deletions.
diff --git a/src/Model/GroundWaterEnergy/gwe1.f90 b/src/Model/GroundWaterEnergy/gwe1.f90
@@ -788,12 +788,12 @@ subroutine package_create(this, filtyp, ipakid, ipaknum, pakname, mempath, &
     !
     ! -- This part creates the package object
     select case (filtyp)
-      case ('CTP6')
-        call ctp_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
-                        pakname, this%depvartype, mempath)
-      case ('ESL6')
-        call esl_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
-                        pakname, this%gwecommon)
+    case ('CTP6')
+      call ctp_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
+                      pakname, this%depvartype, mempath)
+    case ('ESL6')
+      call esl_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
+                      pakname, this%gwecommon)
       !case ('LKE6')
       !  call lke_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
       !                  pakname, this%fmi, this%tsplab, this%eqnsclfac, &
@@ -961,13 +961,13 @@ subroutine create_gwe_packages(this, indis)
       !
       ! -- create dis package as it is a prerequisite for other packages
       select case (pkgtype)
-        case ('EST6')
-          this%inest = inunit
-        case ('CND6')
-          this%incnd = 1
-          mempathcnd = mempath
-        case ('CTP6', 'ESL6', 'LKE6', 'SFE6', &
-              'MWE6', 'UZE6', 'API6')
+      case ('EST6')
+        this%inest = inunit
+      case ('CND6')
+        this%incnd = 1
+        mempathcnd = mempath
+      case ('CTP6', 'ESL6', 'LKE6', 'SFE6', &
+            'MWE6', 'UZE6', 'API6')
         call expandarray(bndpkgs)
         bndpkgs(size(bndpkgs)) = n
       case default

diff --git a/src/Model/GroundWaterEnergy/gwe1esl1.f90 b/src/Model/GroundWaterEnergy/gwe1esl1.f90
@@ -34,7 +34,7 @@ module GweEslModule
     procedure, public :: bnd_df_obs => esl_df_obs
     ! -- methods for time series
     procedure, public :: bnd_rp_ts => esl_rp_ts
-    
+
   end type GweEslType
 
 contains
@@ -223,7 +223,7 @@ subroutine define_listlabel(this)
   end subroutine define_listlabel
 
   ! -- Procedures related to observations
-  
+
   !> @brief Support function for specified energy source loading observations
   !!
   !! This function: