Changeset 4841

Timestamp:

Mar 2, 2024, 9:37:56 PM (2 months ago)

Author:

fhourdin

Message:

Suite wake

File:

• LMDZ6/trunk/libf/phylmd/lmdz_wake.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_wake.F90

@@ -319 +319 @@
   REAL, DIMENSION (klon)                                :: h_zzz
 
-! print*,'WAKE LJYFzzzzz'
+!print*,'WAKE LJYFo'
 
   ! -------------------------------------------------------------------------
@@ -2482 +2482 @@
     DO i = 1, klon
         ptop_provis(i) = ph(i, 1)
+        k_ptop_provis(i) = 1
     END DO
 
@@ -2491 +2492 @@
           ptop_provis(i) = ((dth(i,k)+delta_t_min)*p(i,k-1) - &
                             (dth(i,k-1)+delta_t_min)*p(i,k))/(dth(i,k)-dth(i,k-1))
+          k_ptop_provis(i) = k
         END IF
       END DO