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

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

Turn coefils.h into lmdz_coefils.f90
Put filtreg.F90 inside lmdz_filtreg.F90
Turn mod_filtreg_p.F90 into lmdz_filtreg_p.F90
Delete obsolete parafilt.h*
(lint) remove spaces between routine name and args

  • 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
4SUBROUTINE laplacien_rotgam( klevel, rotin, rotout )
5  !
6  ! P. Le Van
7  !
8  !   ************************************************************
9  !   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
10  !   ************************************************************
11  ! klevel et teta  sont des arguments  d'entree pour le s-prog
12  !  divgra     est  un argument  de sortie pour le s-prog
13  !
14  IMPLICIT NONE
15  !
16  INCLUDE "dimensions.h"
17  INCLUDE "paramet.h"
18  INCLUDE "comgeom.h"
19
20  !
21  !    .............   variables  en  arguments    ...........
22  !
23  INTEGER :: klevel
24  REAL :: rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
25  !
26  !   ............     variables   locales     ...............
27  !
28  INTEGER :: l, ij
29  REAL :: ghy(ip1jm,llm), ghx(ip1jmp1,llm)
30  !   ........................................................
31  !
32  !
33
34  CALL   nxgrad_gam ( klevel, rotin,   ghx ,   ghy  )
35  CALL   rotat_nfil ( klevel, ghx  ,   ghy , rotout )
36  !
37  DO l = 1, klevel
38    DO ij = 1, ip1jm
39     rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
40    ENDDO
41  ENDDO
42
43  RETURN
44END SUBROUTINE laplacien_rotgam
Note: See TracBrowser for help on using the repository browser.