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

Diff of /trunk/dyn3d/caldyn0.f

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

revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC revision 73 by guez, Fri Nov 15 17:48:30 2013 UTC
# Line 20  contains Line 20  contains
20    
21      !   Arguments:      !   Arguments:
22      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)
23      REAL :: teta(ip1jmp1, llm)      REAL, INTENT(IN):: teta(ip1jmp1, llm)
24      REAL, INTENT (IN) :: ps(ip1jmp1)      REAL, INTENT (IN) :: ps(ip1jmp1)
25      REAL, INTENT (IN) :: phis(ip1jmp1)      REAL, INTENT (IN) :: phis(ip1jmp1)
26      REAL, INTENT (IN) :: pk(iip1, jjp1, llm)      REAL, INTENT (IN) :: pk(iip1, jjp1, llm)
Legend:
Removed from v.67  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.21