Changeset 4085 for LMDZ6/trunk/libf/phylmd/calwake.F90

Timestamp:

Mar 8, 2022, 8:44:55 PM (2 years ago)

Author:

fhourdin

Message:

Reecriture de wake sur de nouveaux standards
Permet de rejouer les calculs (fonctionalité replay) et
pave le chemin vers les GPU.
Frédéric, Jean-Yves et Etienne
+ corrections makelmdz/create_make_gcm.

File:

• LMDZ6/trunk/libf/phylmd/calwake.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/calwake.F90

@@ -208 +208 @@
   END DO
 
-  CALL wake(znatsurf, p, ph, pi, dtime, &
+
+
+  CALL wake(klon,klev,znatsurf, p, ph, pi, dtime, &
     te, qe, omgbe, &
     dtdwn, dqdwn, amdwn, amup, dta, dqa, wgen, &
     sigd0, Cin, &
-    dtw, dqw, sigmaw, awdens, wdens, &                                   ! state variables
+    dtw, dqw, sigmaw, awdens, wdens, &                      ! 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_awdens, d_wdens)                     ! tendencies
+    d_deltatw, d_deltaqw, d_sigmaw, d_awdens, d_wdens)      ! tendencies
 
 !