Changeset 2273

Timestamp:

May 13, 2015, 12:35:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Ooooops

Correction bug introduit dans r2225 qui menait au plantage du routage dans ORCHIDEE

---

Correcting bug introduced in r2225 that lead to ORCHIDEE crashing in initialisation
of the routing

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

@@ -86 +86 @@
         latfi((j-2)*iim+1+i)= rlatu(j)
         lonfi((j-2)*iim+1+i)= rlonv(i)
-        cufi((j-2)*iim+1+i) = cu((j-1)*iim+1+i)
-        cvfi((j-2)*iim+1+i) = cv((j-1)*iim+1+i)
+        cufi((j-2)*iim+1+i) = cu((j-1)*(iim+1)+i)
+        cvfi((j-2)*iim+1+i) = cv((j-1)*(iim+1)+i)
       ENDDO
     ENDDO