Ignore:
Timestamp:
Jan 18, 2000, 10:33:53 AM (24 years ago)
Author:
lmdz
Message:

Bug corrige sur le calcul de xpps. G.Krinner

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/startvar.F

    r2 r19  
    660660              DO il=1,lml
    661661                xppn = SUM(aire(:,1)*champ(:,1,il))/apoln
    662                 xpps = SUM(aire(:,jml)*champ(:,jml,il))/apoln
     662                xpps = SUM(aire(:,jml)*champ(:,jml,il))/apols
    663663                champ(:,1,il) = xppn
    664664                champ(:,jml,il) = xpps
    … …  
    689689              DO il=1,lml
    690690                xppn = SUM(aire(:,1)*champ(:,1,il))/apoln
    691                 xpps = SUM(aire(:,jml)*champ(:,jml,il))/apoln
     691                xpps = SUM(aire(:,jml)*champ(:,jml,il))/apols
    692692                champ(:,1,il) = xppn
    693693                champ(:,jml,il) = xpps
Note: See TracChangeset for help on using the changeset viewer.