Changeset 3772 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Sep 30, 2020, 5:26:16 PM (4 years ago)

Author:

lguez

Message:

Bug fix: initialize therm in hbtm

ytherm mixed values of different sub-surfaces at different
positions. This commit fixes ticket #122.

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -977 +977 @@
 !!    d_t_diss= 0.0 ;d_u = 0.0     ; d_v = 0.0 
     yqsol = 0.0    
-    ytherm = 0.0  ; ytke=0.
+    ytke=0.
 !FC 
     y_treedrg=0.