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/yamada4.F90

    r4881 r4884  
    688688
    689689! Diagnostics
    690  
    691  eps(:,:)=dissip(:,:)
     690
     691 eps(:,:)=0.
    692692 wprime(1:ngrid,:,nsrf)=0.
    693693 DO k=2,klev
    694694    DO ig=1,ngrid
     695       eps(ig,k)=dissip(ig,k)
    695696       jg=ni(ig)
    696697       wprime(jg,k,nsrf)=sqrt(MAX(1./3*q2(ig,k),0.))
Note: See TracChangeset for help on using the changeset viewer.