/[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 27 by guez, Thu Mar 25 14:29:07 2010 UTC trunk/dyn3d/laplacien_rot.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 22  c Line 22  c
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 31  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.27  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21