From ca0804450baf56378346d65727dfa5447d86c172 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 14 Sep 2020 09:07:45 -0500 Subject: [PATCH] Remove some redundant code. --- lib/fst4_decode.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90 index 848559530..c90149298 100644 --- a/lib/fst4_decode.f90 +++ b/lib/fst4_decode.f90 @@ -214,15 +214,12 @@ contains if(ndepth.eq.3) then nblock=4 jittermax=2 - norder=3 elseif(ndepth.eq.2) then nblock=3 jittermax=0 - norder=3 elseif(ndepth.eq.1) then nblock=1 jittermax=0 - norder=3 endif ndropmax=1