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

Timestamp:

Oct 25, 2017, 9:35:59 AM (7 years ago)

Author:

fhourdin

Message:

Correction pour compilation debug

File:

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

LMDZ6/trunk/libf/phylmd/yamada4.F90

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