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

Timestamp:

Mar 10, 2022, 7:23:47 PM (2 years ago)

Author:

fhourdin

Message:

Reecriture des thermiques

File:

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

LMDZ6/trunk/libf/phylmd/calwake.F90

@@ -210 +210 @@
 
 
+! SUBROUTINE wake(klon,klev,znatsurf, p, ph, pi, dtime, &
+!                 tenv0, qe0, omgb, &
+!                 dtdwn, dqdwn, amdwn, amup, dta, dqa, wgen, &
+!                 sigd_con, Cin, &
+!                 deltatw, deltaqw, sigmaw, awdens, wdens, &                  ! state variables
+!                 dth, hw, wape, fip, gfl, &
+!                 dtls, dqls, ktopw, omgbdth, dp_omgb, tu, qu, &
+!                 dtke, dqke, omg, dp_deltomg, wkspread, cstar, &
+!                 d_deltat_gw, &
+!                 d_deltatw2, d_deltaqw2, d_sigmaw2, d_awdens2, d_wdens2)     ! tendencies
+! 
+  ! retour a un Pupper fixe                                *
   CALL wake(klon,klev,znatsurf, p, ph, pi, dtime, &
     te, qe, omgbe, &