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

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

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

revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC revision 73 by guez, Fri Nov 15 17:48:30 2013 UTC
# Line 16  SUBROUTINE sortvarc0(ucov, teta, ps, mas Line 16  SUBROUTINE sortvarc0(ucov, teta, ps, mas
16    !   Arguments:    !   Arguments:
17    
18    REAL, INTENT (IN) :: ucov(ip1jmp1, llm)    REAL, INTENT (IN) :: ucov(ip1jmp1, llm)
19    REAL :: teta(ip1jmp1, llm), masse(ip1jmp1, llm)    REAL, INTENT(IN):: teta(ip1jmp1, llm)
20      real masse(ip1jmp1, llm)
21    REAL, INTENT (IN) :: ps(ip1jmp1)    REAL, INTENT (IN) :: ps(ip1jmp1)
22    REAL, INTENT (IN) :: phis(ip1jmp1)    REAL, INTENT (IN) :: phis(ip1jmp1)
23    REAL :: vorpot(ip1jm, llm)    REAL :: vorpot(ip1jm, llm)
Legend:
Removed from v.64  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.21