Changeset 3838 for LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Feb 11, 2021, 10:39:04 AM (3 years ago)

Author:

musat

Message:

Ajout ustar pour diagnostics pbl

File:

• LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/pbl_surface_mod.F90 (modified) (3 diffs)

LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/pbl_surface_mod.F90

@@ -1839 +1839 @@
                yu(:,1), yv(:,1), yt(:,1), yq(:,1), zgeo1, &
                yts, yqsurf, yz0m, yz0h, ypaprs(:,1), ypplay(:,1), &
-               yt2m, yq2m, yt10m, yq10m, yu10m, yn2mout(:, nsrf, :))
+               yt2m, yq2m, yt10m, yq10m, yu10m, yustar, &
+               yn2mout(:, nsrf, :))
           ELSE
           CALL stdlevvar(klon, knon, is_ter, zxli, &
@@ -2638 +2639 @@
             uzon, vmer, tair1, qair1, zgeo1, &
             tairsol, qairsol, yz0m, yz0h_oupas, psfce, patm, &
-            yt2m, yq2m, yt10m, yq10m, yu10m, yn2mout(:, nsrf, :))
+            yt2m, yq2m, yt10m, yq10m, yu10m, yustar, &
+            yn2mout(:, nsrf, :))
         ELSE
         CALL stdlevvar(klon, knon, nsrf, zxli, &
@@ -2650 +2652 @@
             uzon_x, vmer_x, tair1_x, qair1_x, zgeo1_x, &
             tairsol_x, qairsol, yz0m, yz0h_oupas, psfce, patm, &
-            yt2m_x, yq2m_x, yt10m_x, yq10m_x, yu10m_x, yn2mout_x(:, nsrf, :))
+            yt2m_x, yq2m_x, yt10m_x, yq10m_x, yu10m_x, yustar_x, &
+            yn2mout_x(:, nsrf, :))
          CALL stdlevvarn(klon, knon, nsrf, zxli, &
             uzon_w, vmer_w, tair1_w, qair1_w, zgeo1_w, &
             tairsol_w, qairsol, yz0m, yz0h_oupas, psfce, patm, &
-            yt2m_w, yq2m_w, yt10m_w, yq10m_w, yu10m_w, yn2mout_w(:, nsrf, :))
+            yt2m_w, yq2m_w, yt10m_w, yq10m_w, yu10m_w, yustar_w, &
+            yn2mout_w(:, nsrf, :))
         ELSE
         CALL stdlevvar(klon, knon, nsrf, zxli, &