source: LMDZ.3.3/branches/LF/libf/dyn3d/laplacien_rot.F

Last change on this file was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1      SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
2c
3c    P. Le Van
4c
5c   ************************************************************
6c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
7c   ************************************************************
8c
9c     klevel et rotin  sont des arguments  d'entree pour le s-prog
10c      rotout           est  un argument  de sortie pour le s-prog
11c
12      IMPLICIT NONE
13c
14#include "dimensions.h"
15#include "paramet.h"
16#include "comgeom.h"
17
18c
19c   ..........    variables  en  arguments     .............
20c
21      INTEGER klevel
22      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
23c
24c   ..........    variables   locales       ................
25c
26      REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
27c   ........................................................
28c
29      EXTERNAL  filtreg, nxgrad, rotatf
30c
31      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
32
33      CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
34      CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
35c
36      RETURN
37      END
Note: See TracBrowser for help on using the repository browser.