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

Diff of /trunk/dyn3d/rotatf.f

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

trunk/libf/dyn3d/rotatf.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/rotatf.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 15  c Line 15  c
15        use dimens_m        use dimens_m
16        use paramet_m        use paramet_m
17        use comgeom        use comgeom
18          use filtreg_m, only: filtreg
19        IMPLICIT NONE        IMPLICIT NONE
20  c  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 45  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.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21