Ignore:
Timestamp:
Jun 19, 2007, 12:11:06 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Quelques caracteres en trop pour le premier et elimination de la cle
CPP_PSMILE JG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F

    r774 r785  
    6666      DO l=1,nx
    6767         DO ij=ijb,ije-iip1+1,iip1
    68 qy         x_scal(ij,l)=x_scal(ij+iip1-1,l)
     68           x_scal(ij,l)=x_scal(ij+iip1-1,l)
    6969         ENDDO
    7070      ENDDO
Note: See TracChangeset for help on using the changeset viewer.