/[lmdze]/trunk/libf/dyn3d/integrd.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/integrd.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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
Legend:
Removed from v.43  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.21