Changeset 2849 for LMDZ5/trunk/libf/phylmd/calwake.F90

Timestamp:

Apr 13, 2017, 7:32:24 PM (7 years ago)

Author:

jyg

Message:

Bug fix concerning iflag_wake_tend=1.

File:

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

LMDZ5/trunk/libf/phylmd/calwake.F90

@@ -54 +54 @@
   ! ------
   REAL, DIMENSION(klon, klev),   INTENT (OUT)        :: dt_wake, dq_wake
-  REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_k
+!!jyg  REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_k
+  INTEGER, DIMENSION(klon),      INTENT (OUT)        :: wake_k
   REAL, DIMENSION(klon, klev),   INTENT (OUT)        :: wake_d_deltat_gw
   REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_h