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

Diff of /trunk/libf/dyn3d/laplacien_rot.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    
# Line 30  c Line 31  c
31  c   ........................................................  c   ........................................................
32  c  c
33  c  c
34        CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )        CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE.)
35    
36        CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )        CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
37        CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )        CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
Legend:
Removed from v.3  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21