Changeset 3899 for LMDZ5/branches/Cold_pool_death/libf/phylmd/calwake.F90

Timestamp:

May 14, 2021, 7:12:13 PM (3 years ago)

Author:

lguez

Message:

Old work on cold pool death.

File:

• LMDZ5/branches/Cold_pool_death/libf/phylmd/calwake.F90 (modified) (3 diffs)

LMDZ5/branches/Cold_pool_death/libf/phylmd/calwake.F90

@@ -14 +14 @@
     wake_omg, wake_dp_deltomg, &
     wake_spread, wake_cstar, wake_d_deltat_gw, &
-    wake_ddeltat, wake_ddeltaq, wake_ds, wake_ddens)
+    wake_ddeltat, wake_ddeltaq, wake_ds, wake_ddens, itap)
   ! **************************************************************
   ! *
@@ -68 +68 @@
   REAL, DIMENSION(klon, klev),   INTENT (OUT)        :: wake_ddeltat, wake_ddeltaq
   REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_ds, wake_ddens
+  integer, intent(in):: itap ! index of call to physiq
 
 
@@ -211 +212 @@
     dtke, dqke, omg, dp_deltomg, spread, cstar, &
     d_deltat_gw, &
-    d_deltatw, d_deltaqw, d_sigmaw, d_wdens)                     ! tendencies
+    d_deltatw, d_deltaqw, d_sigmaw, d_wdens, itap)                     ! tendencies
 
 !