Changeset 1428 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq.F90

Timestamp:

May 21, 2015, 8:05:26 AM (10 years ago)

Author:

emillour

Message:

All models:

• Bug fix on the transfer of cu and cv values from the dynamics to the physics (introduced with code reorganization in revision 1403).

EM

File:

• trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq.F90

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