Changeset 2273 for LMDZ5/trunk


Ignore:
Timestamp:
May 13, 2015, 12:35:29 PM (9 years ago)
Author:
Laurent Fairhead
Message:

Ooooops

Correction bug introduit dans r2225 qui menait au plantage du routage dans ORCHIDEE

Correcting bug introduced in r2225 that lead to ORCHIDEE crashing in initialisation
of the routing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

    r2242 r2273  
    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.