Changeset 3953 for LMDZ6


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r3952 r3953  
    18961896                         AcoefU_x, AcoefU_w, AcoefV_x, AcoefV_w, &
    18971897                         BcoefH_x, BcoefH_w, BcoefQ_x, BcoefQ_w, &
    1898                          BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w  &
     1898                         BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w, &
     1899                         Kech_h_x, Kech_h_w, Kech_h  &
    18991900                         )
    19001901         CALL wx_pbl_prelim_beta(knon, dtime, ywake_s, ybeta,  &
  • LMDZ6/trunk/libf/phylmd/wx_pbl_var_mod.F90

    r3902 r3953  
    311311                                 AcoefU_x, AcoefU_w, AcoefV_x, AcoefV_w, &
    312312                                 BcoefT_x, BcoefT_w, BcoefQ_x, BcoefQ_w, &
    313                                  BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w  &
     313                                 BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w, &
     314                                 Kech_h_x_out, Kech_h_w_out, Kech_h_out  &
    314315                                 )
    315316!
     
    339340    REAL, DIMENSION(knon),        INTENT(IN)        :: BcoefT_x, BcoefT_w, BcoefQ_x, BcoefQ_w
    340341    REAL, DIMENSION(knon),        INTENT(IN)        :: BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w
     342!
     343    REAL, DIMENSION(knon),        INTENT(OUT)       :: Kech_h_x_out, Kech_h_w_out, Kech_h_out
    341344!
    342345! Local variables
     
    462465         Kech_q(j) = Kech_q_x(j) + sigw(j)*dd_Kq
    463466         Kech_m(j) = Kech_m_x(j) + sigw(j)*dd_Km
     467!
     468         Kech_h_x_out(j) = Kech_h_x(j)
     469         Kech_h_w_out(j) = Kech_h_w(j)
     470         Kech_h_out(j)   = Kech_h(j)
    464471!
    465472! Effective exchange coefficient computation
Note: See TracChangeset for help on using the changeset viewer.