source: LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/laplacien_rotgam.F @ 3852

Last change on this file since 3852 was 1945, checked in by lguez, 11 years ago

Duplicated files moved to dyn3d_common.

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
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.