Changeset 30 for IOIPSL/trunk

Timestamp:

04/17/07 15:28:32 (17 years ago)

Author:

bellier

Message:

JB: correction of a bug (ij=1 -> ij=0)

File:

• IOIPSL/trunk/example/testhist1.f90 (modified) (2 diffs)

IOIPSL/trunk/example/testhist1.f90

@@ -19 +19 @@
   INTEGER :: i, j, l, id, it, ij, sig_id, hori_id
   INTEGER :: day=15, month=2, year=1997
-  INTEGER :: itau=0, INDEX(nbreg), start
+  INTEGER :: itau=0, index(nbreg), start
 !
   REAL :: julday
@@ -99 +99 @@
 !       which move through the map.
 !---
-    ij = 1
+    ij = 0
     DO j=1,nbreg/10
       DO i=1,10
         ij = ij+1
-        INDEX(ij) = iim*(j+20)+(i+start)
+        index(ij) = iim*(j+20)+(i+start)
       ENDDO
     ENDDO