source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien.f90 @ 5133

Last change on this file since 5133 was 5119, checked in by abarral, 5 months ago

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way
  • 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! $Header$
2
3SUBROUTINE laplacien(klevel, teta, divgra)
4  !
5  ! P. Le Van
6  !
7  !   ************************************************************
8  !    ....     calcul de  (div( grad ))   de   teta  .....
9  !   ************************************************************
10  ! klevel et teta  sont des arguments  d'entree pour le s-prog
11  !  divgra     est  un argument  de sortie pour le s-prog
12  !
13  USE lmdz_filtreg, ONLY: filtreg
14  USE lmdz_ssum_scopy, ONLY: scopy
15
16  IMPLICIT NONE
17  !
18  INCLUDE "dimensions.h"
19  INCLUDE "paramet.h"
20  INCLUDE "comgeom.h"
21
22  !
23  !    .........      variables  en arguments   ..............
24  !
25  INTEGER :: klevel
26  REAL :: teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
27  !
28  !    ............     variables  locales      ..............
29  !
30  REAL :: ghy(ip1jm, llm), ghx(ip1jmp1, llm)
31  !    .......................................................
32
33
34  !
35  CALL SCOPY (ip1jmp1 * klevel, teta, 1, divgra, 1)
36
37  CALL filtreg(divgra, jjp1, klevel, 2, 1, .TRUE., 1)
38  CALL   grad (klevel, divgra, ghx, ghy)
39  CALL  divergf (klevel, ghx, ghy, divgra)
40
41  RETURN
42END SUBROUTINE laplacien
Note: See TracBrowser for help on using the repository browser.