Ignore:
Timestamp:
Mar 22, 2011, 5:25:44 PM (14 years ago)
Author:
slebonnois
Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/dyn3d/bilan_dyn.F

    r37 r97  
    915915         do itr=2,ntr
    916916           do l=1,llm
    917             do j=1,jjp1
     917            do j=1,jjm
    918918          zawQ(1,l,itr,iQ)=zawQ(1,l,itr,iQ)+zwQ(j,l,itr,iQ)*zmasse(j,l)
    919919            enddo
Note: See TracChangeset for help on using the changeset viewer.