Changeset 4478 for LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

Timestamp:

Mar 27, 2023, 4:25:12 PM (20 months ago)

Author:

evignon

Message:

commission sur le melange turbulent et les cdrag suite au dernier atelier tke

File:

• LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

@@ -1030 +1030 @@
     REAL, DIMENSION(klon)              :: yrmu0
     ! Martin
-
+    REAL, DIMENSION(klon)              :: yri0
     REAL, DIMENSION(klon):: ydelta_sst, ydelta_sal, yds_ns, ydt_ns, ydter, &
          ydser, ydt_ds, ytkt, ytks, ytaur, ysss
@@ -1279 +1279 @@
 
     ytke=0.
+    yri0(:)=0.
 !FC 
     y_treedrg=0.
@@ -1849 +1850 @@
         CALL cdrag(knon, nsrf, &
             speed, yt(:,1), yq(:,1), zgeo1, ypaprs(:,1),&
-            yts, yqsurf, yz0m, yz0h, &
+            yts, yqsurf, yz0m, yz0h, yri0, 0, &
             ycdragm, ycdragh, zri1, pref )
 
@@ -1883 +1884 @@
             CALL cdrag(knon, nsrf, &
             speed_x, yt_x(:,1), yq_x(:,1), zgeo1_x, ypaprs(:,1),&
-            yts_x, yqsurf_x, yz0m, yz0h, &
+            yts_x, yqsurf_x, yz0m, yz0h, yri0, 0, &
             ycdragm_x, ycdragh_x, zri1_x, pref_x )
 
@@ -1910 +1911 @@
         CALL cdrag(knon, nsrf, &
             speed_w, yt_w(:,1), yq_w(:,1), zgeo1_w, ypaprs(:,1),&
-            yts_w, yqsurf_w, yz0m, yz0h, &
+            yts_w, yqsurf_w, yz0m, yz0h, yri0, 0, &
             ycdragm_w, ycdragh_w, zri1_w, pref_w )
 !