variable usage clean-up

geohackweek · Oct 17, 2023 · efe46f5 · efe46f5
1 parent a5a5ad2
commit efe46f5
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Model/TransportModel/tsp1sdv1.f90 b/src/Model/TransportModel/tsp1sdv1.f90
@@ -16,9 +16,6 @@ module TspSdvModule
   private
   public :: sdv_create
   !
-  character(len=LENFTYPE) :: ftype = '   '
-  character(len=LENPACKAGENAME) :: text = ''
-  !
   type, extends(BndType) :: TspSdvType
 
     real(DP), dimension(:), pointer, contiguous :: ratesdvin => null() !simulated flows into constant conc (excluding other concs)
@@ -426,7 +423,7 @@ end function sdv_obs_supported
   !!
   !! This routine:
   !!   - defines observations
-  !!   - stores observation types supported by either of the SDV packages 
+  !!   - stores observation types supported by either of the SDV packages
   !!     (CNC or CNT),
   !!   - overrides BndType%bnd_df_obs
   !<