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

Last change on this file since 5135 was 5119, checked in by abarral, 11 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
RevLine 
[524]1! $Header$
[5099]2
[5119]3SUBROUTINE laplacien(klevel, teta, divgra)
[5105]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  !
[5106]13  USE lmdz_filtreg, ONLY: filtreg
[5119]14  USE lmdz_ssum_scopy, ONLY: scopy
15
[5105]16  IMPLICIT NONE
17  !
18  INCLUDE "dimensions.h"
19  INCLUDE "paramet.h"
20  INCLUDE "comgeom.h"
[524]21
[5105]22  !
23  !    .........      variables  en arguments   ..............
24  !
25  INTEGER :: klevel
[5119]26  REAL :: teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
[5105]27  !
28  !    ............     variables  locales      ..............
29  !
[5119]30  REAL :: ghy(ip1jm, llm), ghx(ip1jmp1, llm)
[5105]31  !    .......................................................
[524]32
33
[5105]34  !
[5119]35  CALL SCOPY (ip1jmp1 * klevel, teta, 1, divgra, 1)
[524]36
[5119]37  CALL filtreg(divgra, jjp1, klevel, 2, 1, .TRUE., 1)
38  CALL   grad (klevel, divgra, ghx, ghy)
39  CALL  divergf (klevel, ghx, ghy, divgra)
[524]40
[5105]41  RETURN
42END SUBROUTINE laplacien
Note: See TracBrowser for help on using the repository browser.