Bugfix for tau

With damping option ‘JFV’, the stratospheric damping rate now actually
gets set to the JFV equilibrium. Before this bug fix, the JFV tau_stat
has computed, but not used in setting tdamp.

fms_riga_hs_jucker/src/atmos_param/hs_forcing/hs_forcing.f90

@@ -798,7 +798,7 @@ subroutine newtonian_damping ( Time, lat, ps, p_full, p_half, t, tdt, teq, tau,
             teq = teq_strat   
          end where
       end if
-      !! same for tamping rate
+      !! same for damping rate
       if ( trim(equilibrium_tau_option) == 'JFV' ) then
          tau_strat = 0.
          do k=1,size(t,3)
@@ -838,7 +838,7 @@ subroutine newtonian_damping ( Time, lat, ps, p_full, p_half, t, tdt, teq, tau,
          tau_strat = 1./tau_strat
       endif
       if ( trim(equilibrium_tau_option) == 'strat_file' .or. &
-           &trim(equilibrium_tau_option) == 'strat_file' ) then
+           &trim(equilibrium_tau_option) == 'JFV' ) then
          ! merge with HS troposphere
          Pp = 0.
          where ( p_full .le. p_hs .and. p_full .ge. p_bd )