/[lmdze]/trunk/dyn3d/vlspltqs.f90
ViewVC logotype

Diff of /trunk/dyn3d/vlspltqs.f90

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC
# Line 33  c Line 33  c
33  c   Arguments:  c   Arguments:
34  c   ----------  c   ----------
35        REAL masse(ip1jmp1,llm),pente_max        REAL masse(ip1jmp1,llm),pente_max
36        REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)        REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
37        REAL q(ip1jmp1,llm)        REAL q(ip1jmp1,llm)
38        REAL w(ip1jmp1,llm),pdt        REAL w(ip1jmp1,llm)
39        REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm)        real, intent(in):: pdt
40          REAL, intent(in):: p(ip1jmp1,llmp1)
41          real teta(ip1jmp1,llm),pk(ip1jmp1,llm)
42  c  c
43  c      Local  c      Local
44  c   ---------  c   ---------
Legend:
Removed from v.3  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.21