Parent Directory | Revision Log | Patch
revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC | revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC | |
---|---|---|
# | Line 114 contains | Line 114 contains |
114 | ||
115 | DO ij = 1, ip1jmp1 | DO ij = 1, ip1jmp1 |
116 | hscr(ij) = teta(ij, l) | hscr(ij) = teta(ij, l) |
117 | teta(ij, l) = tetam1(ij, l)*massem1(ij, l)/masse(ij, l) & | teta(ij, l) = tetam1(ij, l) * massem1(ij, l) / masse(ij, l) & |
118 | + dt*dteta(ij, l)/masse(ij, l) | + dt * dteta(ij, l) / masse(ij, l) |
119 | END DO | END DO |
120 | ||
121 | ! Calcul de la valeur moyenne, unique aux poles pour teta | ! Calcul de la valeur moyenne, unique aux poles pour teta |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |