Changeset 60 in lmdz_wrf for branches

Timestamp:

Jul 23, 2014, 6:01:01 PM (10 years ago)

Author:

lfita

Message:

Fixing array miosmatch

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -310 +310 @@
       "' is wrong in Nvalues= ",wrongi,' at i (x, y) value___'
     DO i=1,wrongi
-       ypt = INT(wronggridpt(i,1)/wiim) + 1
-       xpt = wronggridpt(i,1) - (ypt-1)*wiim
+       ypt = INT(wronggridpt(i)/wiim) + 1
+       xpt = wronggridpt(i) - (ypt-1)*wiim
       PRINT *,wronggridpt(i), '(',xpt,', ',ypt,')', wrongvalues(i)
     END DO