source: LMDZ6/branches/Portage_acc/libf/dyn3d_common/laplacien.F @ 4743

Last change on this file since 4743 was 4743, checked in by Laurent Fairhead, 7 months ago

Merge of ACC branch with 4740 revision from trunk
  • 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 ( klevel, teta, divgra )
5c
6c     P. Le Van
7c
8c   ************************************************************
9c    ....     calcul de  (div( grad ))   de   teta  .....
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 teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
25c
26c    ............     variables  locales      ..............
27c
28      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
29c    .......................................................
30
31
32c
33      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
34
35      CALL filtreg( divgra,  jjp1, klevel,  2, 1, .TRUE., 1 )
36      CALL   grad ( klevel,divgra,   ghx , ghy              )
37      CALL  divergf ( klevel, ghx , ghy  , divgra           )
38
39      RETURN
40      END
Note: See TracBrowser for help on using the repository browser.