Changeset 1879


Ignore:
Timestamp:
Sep 30, 2013, 9:31:15 AM (11 years ago)
Author:
Ehouarn Millour
Message:

Added some missing initializations.
EM+JG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/yamada4.F

    r1738 r1879  
    166166! Computing M^2, N^2, Richardson numbers, stability functions
    167167!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     168      ! initialize arrays:
     169      m2(:,:)=0.0
     170      sm(:,:)=0.0
     171      rif(:,:)=0.0
    168172
    169173      do k=2,klev
     
    385389                                                          enddo
    386390      enddo
     391      ! initialize near-surface and top-layer mixing coefficients
     392      kq(1:ngrid,1)=kq(1:ngrid,2) ! constant (ie no gradient) near the surface
     393      kq(1:ngrid,klev+1)=0        ! zero at the top
    387394
    388395! Transport diffusif vertical de la TKE.
Note: See TracChangeset for help on using the changeset viewer.