Changeset 4746

Timestamp:

Nov 10, 2023, 12:09:47 AM (13 months ago)

Author:

fhourdin

Message:

Bug fix

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dtke.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dtke.F90

@@ -62 +62 @@
       fm(:,nlay+1)=0.
 
+
+
+do isrf=1,nsrf
+
+   q(:,:)=tke(:,:,isrf)
 !   calcul de la valeur dans les ascendances
       do ig=1,ngrid
@@ -67 +72 @@
       enddo
 
-
-
-do isrf=1,nsrf
-
-   q(:,:)=tke(:,:,isrf)
 
     if (1==1) then