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

Diff of /trunk/dyn3d/rotatf.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 64 by guez, Wed Aug 29 14:47:17 2012 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
# 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.64
  ViewVC Help
Powered by ViewVC 1.1.21