Ignore:
Timestamp:
May 13, 2015, 1:39:20 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Backport of bug correction so that testing can work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/iniphysiq.F90

    r2258 r2274  
    8686        latfi((j-2)*iim+1+i)= rlatu(j)
    8787        lonfi((j-2)*iim+1+i)= rlonv(i)
    88         cufi((j-2)*iim+1+i) = cu((j-1)*iim+1+i)
    89         cvfi((j-2)*iim+1+i) = cv((j-1)*iim+1+i)
     88        cufi((j-2)*iim+1+i) = cu((j-1)*(iim+1)+i)
     89        cvfi((j-2)*iim+1+i) = cv((j-1)*(iim+1)+i)
    9090      ENDDO
    9191    ENDDO
Note: See TracChangeset for help on using the changeset viewer.