/[lmdze]/trunk/libf/dyn3d/rotatf.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/rotatf.f

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 65 by guez, Thu Sep 20 09:57:03 2012 UTC
# Line 21  c Line 21  c
21  c  c
22  c   .....  variables en arguments  ......  c   .....  variables en arguments  ......
23  c  c
24        INTEGER klevel        INTEGER, intent(in):: klevel
25        REAL rot( ip1jm,klevel )        REAL rot( ip1jm,klevel )
26        REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )        REAL, intent(in):: x( ip1jmp1,klevel ), y( ip1jm,klevel )
27  c  c
28  c  ...   variables  locales  ...  c  ...   variables  locales  ...
29  c  c
# Line 46  CDIR$ IVDEP Line 46  CDIR$ IVDEP
46  c  c
47    10  CONTINUE    10  CONTINUE
48    
49          CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )          CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE.)
50                
51          DO l = 1, klevel          DO l = 1, klevel
52            DO ij = 1, ip1jm            DO ij = 1, ip1jm
Legend:
Removed from v.27  
changed lines
  Added in v.65
  ViewVC Help
Powered by ViewVC 1.1.21