Changeset 695


Ignore:
Timestamp:
Apr 10, 2006, 11:56:17 AM (18 years ago)
Author:
lmdzadmin
Message:

Correction bogue indice au pole : JMP -> JNP
MAFi/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/ppm3d.F

    r524 r695  
    737737c     j=1 c'est le pôle Sud, j=JNP c'est le pôle Nord
    738738      Q(I,  2,k,IC) = Q(I,  1,k,IC)
    739       Q(I,JMR,k,IC) = Q(I,JMP,k,IC)
     739      Q(I,JMR,k,IC) = Q(I,JNP,k,IC)
    740740400   CONTINUE
    741741      endif
Note: See TracChangeset for help on using the changeset viewer.