Changeset 1879

Timestamp:

Sep 30, 2013, 9:31:15 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Added some missing initializations.
EM+JG

File:

• LMDZ5/trunk/libf/phylmd/yamada4.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/yamada4.F

@@ -166 +166 @@
 ! Computing M^2, N^2, Richardson numbers, stability functions
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      ! initialize arrays:
+      m2(:,:)=0.0
+      sm(:,:)=0.0
+      rif(:,:)=0.0
 
       do k=2,klev
@@ -385 +389 @@
                                                           enddo
       enddo
+      ! initialize near-surface and top-layer mixing coefficients
+      kq(1:ngrid,1)=kq(1:ngrid,2) ! constant (ie no gradient) near the surface
+      kq(1:ngrid,klev+1)=0        ! zero at the top
 
 ! Transport diffusif vertical de la TKE.