Ignore:
Timestamp:
Oct 25, 2017, 9:35:59 AM (7 years ago)
Author:
fhourdin
Message:

Correction pour compilation debug

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3037 r3041  
    655655
    656656! Ajout d'une viscosite moleculaire
    657    km(1:ngrid,:)=km(1:ngrid,:)+viscom
    658    kn(1:ngrid,:)=kn(1:ngrid,:)+viscoh
    659    kq(1:ngrid,:)=kq(1:ngrid,:)+viscoh
     657   km(1:ngrid,2:klev)=km(1:ngrid,2:klev)+viscom
     658   kn(1:ngrid,2:klev)=kn(1:ngrid,2:klev)+viscoh
     659   kq(1:ngrid,2:klev)=kq(1:ngrid,2:klev)+viscoh
    660660
    661661  IF (prt_level>1) THEN
Note: See TracChangeset for help on using the changeset viewer.