source: LMDZ.3.3/trunk/libf/dyn3d/laplacien.F @ 4855

Last change on this file since 4855 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
RevLine 
[2]1      SUBROUTINE laplacien ( klevel, teta, divgra )
2c
3c     P. Le Van
4c
5c   ************************************************************
6c    ....     calcul de  (div( grad ))   de   teta  .....
7c   ************************************************************
8c     klevel et teta  sont des arguments  d'entree pour le s-prog
9c      divgra     est  un argument  de sortie pour le s-prog
10c
11      IMPLICIT NONE
12c
13#include "dimensions.h"
14#include "paramet.h"
15#include "comgeom.h"
16
17c
18c    .........      variables  en arguments   ..............
19c
20      INTEGER klevel
21      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
22c
23c    ............     variables  locales      ..............
24c
25      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
26c    .......................................................
27
28      EXTERNAL  SCOPY, grad, divergf, filtreg
29
30c
31      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
32
33      CALL filtreg( divgra,  jjp1, klevel,  2, 1, .TRUE., 1 )
34      CALL   grad ( klevel,divgra,   ghx , ghy              )
35      CALL  divergf ( klevel, ghx , ghy  , divgra           )
36
37      RETURN
38      END
Note: See TracBrowser for help on using the repository browser.