Changeset 3040 for LMDZ6/branches/IPSLCM6.0.13/libf/phylmd

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:

• LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/yamada4.F90 (modified) (1 diff)

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

@@ -659 +659 @@
 
 ! 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