Skip to content

Commit 96371d0

Browse files
committed
remove defunct local pointers
1 parent 2646c8c commit 96371d0

File tree

1 file changed

+0
-7
lines changed

1 file changed

+0
-7
lines changed

main/FatesInterfaceVarTypeMod.F90

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -237,14 +237,7 @@ subroutine UpdateInterfaceVariable(this, var, scalar)
237237
real(r8), intent(in), optional :: scalar ! value to scale variable update
238238

239239
! Locals
240-
class(*), pointer :: data_var0d => null()
241-
class(*), pointer :: data_var1d(:) => null()
242-
class(*), pointer :: data_var2d(:,:) => null()
243-
class(*), pointer :: data_var3d(:,:,:) => null()
244-
245240
real(r8) :: scalar_local
246-
integer :: index ! index for the subgrid level of the input interface variable
247-
248241
character(len=fates_long_string_length) :: msg_mismatch = 'FATES ERROR: Mismatched interface variable types'
249242

250243
! Check if scalar is present and set default value to one

0 commit comments

Comments
 (0)