Changeset 3040


Ignore:
Timestamp:
Oct 24, 2017, 12:02:26 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of changeset 3037 from trunk into IPSLCM6.0.13 branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/yamada4.F90

    r2952 r3040  
    659659
    660660! Ajout d'une viscosite moleculaire
    661    km(:,:)=km(:,:)+viscom
    662    kn(:,:)=kn(:,:)+viscoh
    663    kq(:,:)=kq(:,:)+viscoh
     661   km(1:ngrid,:)=km(1:ngrid,:)+viscom
     662   kn(1:ngrid,:)=kn(1:ngrid,:)+viscoh
     663   kq(1:ngrid,:)=kq(1:ngrid,:)+viscoh
    664664
    665665  IF (prt_level>1) THEN
Note: See TracChangeset for help on using the changeset viewer.