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

Diff of /trunk/Sources/dyn3d/laplacien_rot.f

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

trunk/libf/dyn3d/laplacien_rot.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/laplacien_rot.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    
22  c  c
23  c   ..........    variables  en  arguments     .............  c   ..........    variables  en  arguments     .............
24  c  c
25        INTEGER klevel        INTEGER, intent(in):: klevel
26        REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )        REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
27  c  c
28  c   ..........    variables   locales       ................  c   ..........    variables   locales       ................
# 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.76
  ViewVC Help
Powered by ViewVC 1.1.21