Changeset 5776 for LMDZ6/trunk/libf/phylmd/phyredem.f90

Timestamp:

Jul 15, 2025, 2:13:19 PM (8 days ago)

Author:

evignon

Message:

ajout de l'advection horizontale de la TKE. Travaux dans le cadre de la these de Valentin Wiener

File:

• LMDZ6/trunk/libf/phylmd/phyredem.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyredem.f90

@@ -23 +23 @@
                                 prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien,      &
                                 ql_ancien, qs_ancien, qbs_ancien, cf_ancien, &
-                                rvc_ancien, u_ancien, v_ancien,              &
+                                rvc_ancien, u_ancien, v_ancien, tke_ancien,  &
                                 clwcon, rnebcon, ratqs, pbl_tke,             &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
@@ -327 +327 @@
     ! DEB TKE PBL !
 
+    IF (ok_advtke) THEN
+      CALL put_field(pass,"TKEANCIEN", "TKEANCIEN", tke_ancien)
+    ENDIF
+
+
     IF (iflag_pbl>1) then
       CALL put_field_srf3(pass,"TKE", "Energ. Cineti. Turb.", &