source: LMDZ4/trunk/libf/dyn3dpar/laplacien_rotgam.F @ 706

Last change on this file since 706 was 630, checked in by Laurent Fairhead, 20 years ago

Import d'une version parallele de la dynamique YM
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
RevLine 
[630]1!
2! $Header$
3!
4      SUBROUTINE laplacien_rotgam ( klevel, rotin, rotout )
5c
6c     P. Le Van
7c
8c   ************************************************************
9c   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
10c   ************************************************************
11c     klevel et teta  sont des arguments  d'entree pour le s-prog
12c      divgra     est  un argument  de sortie pour le s-prog
13c
14      IMPLICIT NONE
15c
16#include "dimensions.h"
17#include "paramet.h"
18#include "comgeom.h"
19
20c
21c    .............   variables  en  arguments    ...........
22c
23      INTEGER klevel
24      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
25c
26c   ............     variables   locales     ...............
27c
28      INTEGER l, ij
29      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
30c   ........................................................
31c
32c
33
34      CALL   nxgrad_gam ( klevel, rotin,   ghx ,   ghy  )
35      CALL   rotat_nfil ( klevel, ghx  ,   ghy , rotout )
36c
37      DO l = 1, klevel
38        DO ij = 1, ip1jm
39         rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
40        ENDDO
41      ENDDO
42
43      RETURN
44      END
Note: See TracBrowser for help on using the repository browser.