Changeset 972 for codes/icosagcm/devel/src/dissip

Timestamp:

09/19/19 15:57:53 (5 years ago)

Author:

jisesh

Message:

devel: Added option up0 and CASE 'wind_temperature'

File:

• codes/icosagcm/devel/src/dissip/nudging_mod.f90 (modified) (1 diff)

codes/icosagcm/devel/src/dissip/nudging_mod.f90

@@ -254 +254 @@
            ps2 = f_ps(ind)
            CALL compute_guided_center2(coef_i, target_ps, ps2)
+         CASE ('wind_temperature')
+           coef_e = f_relax_coef_e(ind)
+           target_ue = f_target_ue(ind)
+           ue = f_u(ind)
+           CALL compute_guided_u(coef_e, target_ue, ue)
+           coef_i = f_relax_coef_i(ind)
+           target_theta_rhodz = f_target_theta_rhodz(ind)
+           theta_rhodz = f_theta_rhodz(ind)
+           CALL compute_guided_center(coef_i, target_theta_rhodz, theta_rhodz)
          CASE ('wind_temperature_ps')
            coef_e = f_relax_coef_e(ind)