Changeset 3953 for LMDZ6/trunk/libf

Timestamp:

Jul 4, 2021, 7:30:22 PM (3 years ago)

Author:

jyg

Message:

Bug fix: output arguments are added to subroutine
wx_pbl_prelim0 so that exchange coefficients Kh, Kh_w and
Kh_x are no longer undefined.

Location:

LMDZ6/trunk/libf/phylmd

Files:

• pbl_surface_mod.F90 (modified) (1 diff)
• wx_pbl_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1896 +1896 @@
                          AcoefU_x, AcoefU_w, AcoefV_x, AcoefV_w, &
                          BcoefH_x, BcoefH_w, BcoefQ_x, BcoefQ_w, &
-                         BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w  &
+                         BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w, &
+                         Kech_h_x, Kech_h_w, Kech_h  &
                          )
          CALL wx_pbl_prelim_beta(knon, dtime, ywake_s, ybeta,  &

LMDZ6/trunk/libf/phylmd/wx_pbl_var_mod.F90

@@ -311 +311 @@
                                  AcoefU_x, AcoefU_w, AcoefV_x, AcoefV_w, &
                                  BcoefT_x, BcoefT_w, BcoefQ_x, BcoefQ_w, &
-                                 BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w  &
+                                 BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w, &
+                                 Kech_h_x_out, Kech_h_w_out, Kech_h_out  &
                                  )
 !
@@ -339 +340 @@
     REAL, DIMENSION(knon),        INTENT(IN)        :: BcoefT_x, BcoefT_w, BcoefQ_x, BcoefQ_w
     REAL, DIMENSION(knon),        INTENT(IN)        :: BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w
+!
+    REAL, DIMENSION(knon),        INTENT(OUT)       :: Kech_h_x_out, Kech_h_w_out, Kech_h_out
 !
 ! Local variables
@@ -462 +465 @@
          Kech_q(j) = Kech_q_x(j) + sigw(j)*dd_Kq
          Kech_m(j) = Kech_m_x(j) + sigw(j)*dd_Km
+!
+         Kech_h_x_out(j) = Kech_h_x(j)
+         Kech_h_w_out(j) = Kech_h_w(j)
+         Kech_h_out(j)   = Kech_h(j)
 !
 ! Effective exchange coefficient computation