Changeset 2396 for LMDZ5/trunk

Timestamp:

Nov 18, 2015, 3:12:46 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Modifications from 2274 that were somehow lost
LF

Location:

LMDZ5/trunk/libf/dynlonlat_phylonlat

Files:

• phydev/iniphysiq_mod.F90 (modified) (1 diff)
• phylmd/iniphysiq_mod.F90 (modified) (1 diff)
• phymar/iniphysiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq_mod.F90

@@ -146 +146 @@
         latfi_glo(k)= rlatu(j)
         lonfi_glo(k)= rlonv(i)
-        cufi_glo(k) = cu((j-1)*iim+1+i)
-        cvfi_glo(k) = cv((j-1)*iim+1+i)
+        cufi_glo(k) = cu((j-1)*(iim+1)+i)
+        cvfi_glo(k) = cv((j-1)*(iim+1)+i)
         boundslonfi_glo(k,north_east)=rlonu(i)
         boundslatfi_glo(k,north_east)=rlatv(j-1)

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

@@ -175 +175 @@
         latfi_glo(k)= rlatu(j)
         lonfi_glo(k)= rlonv(i)
-        cufi_glo(k) = cu((j-1)*ii+1+i)
-        cvfi_glo(k) = cv((j-1)*ii+1+i)
+        cufi_glo(k) = cu((j-1)*(ii+1)+i)
+        cvfi_glo(k) = cv((j-1)*(ii+1)+i)
         boundslonfi_glo(k,north_east)=rlonu(i)
         boundslatfi_glo(k,north_east)=rlatv(j-1)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phymar/iniphysiq_mod.F90

@@ -146 +146 @@
         latfi_glo((j-2)*ii+1+i)= rlatu(j)
         lonfi_glo((j-2)*ii+1+i)= rlonv(i)
-        cufi_glo((j-2)*ii+1+i) = cu((j-1)*ii+1+i)
-        cvfi_glo((j-2)*ii+1+i) = cv((j-1)*ii+1+i)
+        cufi_glo((j-2)*ii+1+i) = cu((j-1)*(ii+1)+i)
+        cvfi_glo((j-2)*ii+1+i) = cv((j-1)*(ii+1)+i)
         boundslonfi_glo(k,north_east)=rlonu(i)
         boundslatfi_glo(k,north_east)=rlatv(j-1)