Changeset 3037


Ignore:
Timestamp:
Oct 23, 2017, 10:57:16 AM (7 years ago)
Author:
fhourdin
Message:

Correction d'un plantage avec de nouveaux compilateurs
Ne change pas les resultats.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

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