Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/calwake.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/calwake.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/calwake.f90

@@ -1 +1 @@
 ! $Id$
+!$gpum horizontal klon nlon
 MODULE calwake_mod
   PRIVATE
@@ -57 +58 @@
   USE indice_sol_mod, ONLY: is_oce
   USE print_control_mod, ONLY: lunout, prt_level
-  USE lmdz_wake, ONLY : wake
+  USE lmdz_wake, ONLY : wake, wake2
+  USE alpale_mod, ONLY: iflag_wake
   USE yomcst_mod_h
 IMPLICIT NONE
@@ -240 +242 @@
 
 
-  CALL wake(klon,klev,znatsurf, p, ph, pi, dtime, &
-    te, qe, omgbe, &
-    dtdwn, dqdwn, amdwn, amup, dta, dqa, wgen, &
-    sigd0, Cin, &
-    dtw, dqw, sigmaw, asigmaw, wdens, awdens, &                      ! state variables
-    dth, hw, wape, fip, gfl, &
-    dtls, dqls, ktopw, omgbdth, dp_omgb, tx, qx, &
-    dtke, dqke, omg, dp_deltomg, spread, cstar, &
-    d_deltat_gw, &
-    d_deltatw, d_deltaqw, d_sigmaw, d_asigmaw, d_wdens, d_awdens)      ! tendencies
+  IF (iflag_wake/10 == 0) THEN
+    CALL wake(klon,klev,znatsurf, p, ph, pi, dtime, &
+      te, qe, omgbe, &
+      dtdwn, dqdwn, amdwn, amup, dta, dqa, wgen, &
+      sigd0, Cin, &
+      dtw, dqw, sigmaw, asigmaw, wdens, awdens, &                      ! state variables
+      dth, hw, wape, fip, gfl, &
+      dtls, dqls, ktopw, omgbdth, dp_omgb, tx, qx, &
+      dtke, dqke, omg, dp_deltomg, spread, cstar, &
+      d_deltat_gw, &
+      d_deltatw, d_deltaqw, d_sigmaw, d_asigmaw, d_wdens, d_awdens)      ! tendencies
+
+  ELSE IF (iflag_wake/10 == 2) THEN
+    CALL wake2(klon,klev,znatsurf, p, ph, pi, dtime, &
+      te, qe, omgbe, &
+      dtdwn, dqdwn, amdwn, amup, dta, dqa, wgen, &
+      sigd0, Cin, &
+      dtw, dqw, sigmaw, asigmaw, wdens, awdens, &                      ! state variables
+      dth, hw, wape, fip, gfl, &
+      dtls, dqls, ktopw, omgbdth, dp_omgb, tx, qx, &
+      dtke, dqke, omg, dp_deltomg, spread, cstar, &
+      d_deltat_gw, &
+      d_deltatw, d_deltaqw, d_sigmaw, d_asigmaw, d_wdens, d_awdens)      ! tendencies
+
+  END IF  !(iflag_wake/10 == 0)
+
 
 !