From 47c539a7e34ecf5045c6771cc3d4ce918fce4aa2 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Tue, 31 Jan 2023 09:21:52 -0800 Subject: [PATCH] remove extra closing paranthesis in associate statement --- main/FatesRestartInterfaceMod.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/main/FatesRestartInterfaceMod.F90 b/main/FatesRestartInterfaceMod.F90 index 4741af0526..a115aee798 100644 --- a/main/FatesRestartInterfaceMod.F90 +++ b/main/FatesRestartInterfaceMod.F90 @@ -1978,8 +1978,7 @@ subroutine set_restart_vectors(this,nc,nsites,sites) rio_fmortcflux_usto_sipft => this%rvars(ir_fmortcflux_usto_sipft)%r81d, & rio_abg_imort_flux_siscpf => this%rvars(ir_abg_imort_flux_siscpf)%r81d, & rio_abg_fmort_flux_siscpf => this%rvars(ir_abg_fmort_flux_siscpf)%r81d, & - rio_abg_term_flux_siscpf => this%rvars(ir_abg_term_flux_siscpf)%r81d ) - + rio_abg_term_flux_siscpf => this%rvars(ir_abg_term_flux_siscpf)%r81d rio_imortrate_sicdpf => this%rvars(ir_imortrate_sicdpf)%r81d, & rio_imortcflux_sicdsc => this%rvars(ir_imortcflux_sicdsc)%r81d, &