/[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 41 by guez, Tue Feb 22 15:09:57 2011 UTC revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC
# Line 20  contains Line 20  contains
20    
21      ! Arguments:      ! Arguments:
22    
23      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm)      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
24        real, intent(inout):: teta(ip1jmp1, llm)
25      REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq)      REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq)
26      REAL, intent(inout):: ps(ip1jmp1)      REAL, intent(inout):: ps(ip1jmp1)
27      REAL masse(ip1jmp1, llm)      REAL masse(ip1jmp1, llm)
# Line 113  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.41  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.21