Ignore:
Timestamp:
Mar 28, 2024, 10:15:51 PM (6 weeks ago)
Author:
evignon
Message:

petite correction commit precedent

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_atke_exchange_coeff.F90

    r4881 r4884  
    348348DO igrid=1,ngrid
    349349    tke(igrid,nlay+1)=0.
     350    eps(igrid,nlay+1)=0.
    350351END DO
    351352
    … …  
    357358    ustar=sqrt(cdrag_uv(igrid)*(wind_u(igrid,1)**2+wind_v(igrid,1)**2))
    358359    tke(igrid,1)=ctkes*(ustar**2)
     360    eps(igrid,1)=0. ! arbitrary as TKE is not properly defined at the surface
    359361END DO
    360362
Note: See TracChangeset for help on using the changeset viewer.