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

Diff of /trunk/dyn3d/dudv2.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 5  Line 5 
5    
6        use dimens_m        use dimens_m
7        use paramet_m        use paramet_m
8        use comvert        use disvert_m
9        IMPLICIT NONE        IMPLICIT NONE
10  c  c
11  c=======================================================================  c=======================================================================
# Line 29  c Line 29  c
29  c=======================================================================  c=======================================================================
30  c  c
31    
32        REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),        REAL, intent(in):: teta( ip1jmp1,llm )
33          real pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),
34       *         du( ip1jmp1,llm ),  dv( ip1jm,llm )       *         du( ip1jmp1,llm ),  dv( ip1jm,llm )
35        INTEGER  l,ij        INTEGER  l,ij
36  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21