/[lmdze]/trunk/dyn3d/advect.f
ViewVC logotype

Diff of /trunk/dyn3d/advect.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC
# Line 18  SUBROUTINE advect(ucov, vcov, teta, w, m Line 18  SUBROUTINE advect(ucov, vcov, teta, w, m
18    
19    !   Arguments:                                                              !   Arguments:                                                          
20    
21    REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm)    REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
22    REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm), w(ip1jmp1, llm)    real, intent(in):: teta(ip1jmp1, llm)
23      REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm)
24      real, INTENT (IN):: w(ip1jmp1, llm)
25    REAL dv(ip1jm, llm), du(ip1jmp1, llm), dteta(ip1jmp1, llm)    REAL dv(ip1jm, llm), du(ip1jmp1, llm), dteta(ip1jmp1, llm)
26    LOGICAL, INTENT (IN) :: conser    LOGICAL, INTENT (IN):: conser
27    
28    !   Local:                                                                  !   Local:                                                              
29    
Legend:
Removed from v.25  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.21