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

Last change on this file since 5135 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
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.