Changeset 30 for IOIPSL


Ignore:
Timestamp:
04/17/07 15:28:32 (15 years ago)
Author:
bellier
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/example/testhist1.f90

    r16 r30  
    1919  INTEGER :: i, j, l, id, it, ij, sig_id, hori_id 
    2020  INTEGER :: day=15, month=2, year=1997 
    21   INTEGER :: itau=0, INDEX(nbreg), start 
     21  INTEGER :: itau=0, index(nbreg), start 
    2222! 
    2323  REAL :: julday 
     
    9999!       which move through the map. 
    100100!--- 
    101     ij = 1 
     101    ij = 0 
    102102    DO j=1,nbreg/10 
    103103      DO i=1,10 
    104104        ij = ij+1 
    105         INDEX(ij) = iim*(j+20)+(i+start) 
     105        index(ij) = iim*(j+20)+(i+start) 
    106106      ENDDO 
    107107    ENDDO 
Note: See TracChangeset for help on using the changeset viewer.