Changeset 3037 for LMDZ6/trunk/libf/phylmd/yamada4.F90

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:

• LMDZ6/trunk/libf/phylmd/yamada4.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/yamada4.F90

@@ -655 +655 @@
 
 ! Ajout d'une viscosite moleculaire
-   km(:,:)=km(:,:)+viscom
-   kn(:,:)=kn(:,:)+viscoh
-   kq(:,:)=kq(:,:)+viscoh
+   km(1:ngrid,:)=km(1:ngrid,:)+viscom
+   kn(1:ngrid,:)=kn(1:ngrid,:)+viscoh
+   kq(1:ngrid,:)=kq(1:ngrid,:)+viscoh
 
   IF (prt_level>1) THEN