source: LMDZ6/branches/cirrus/libf/dyn3d_common/laplacien_rot.F @ 5407

Last change on this file since 5407 was 4593, checked in by yann meurdesoif, 18 months ago

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

  • 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_rot ( klevel, rotin, rotout,ghx,ghy )
5c
6c    P. Le Van
7c
8c   ************************************************************
9c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
10c   ************************************************************
11c
12c     klevel et rotin  sont des arguments  d'entree pour le s-prog
13c      rotout           est  un argument  de sortie pour le s-prog
14c
15      IMPLICIT NONE
16c
17      INCLUDE "dimensions.h"
18      INCLUDE "paramet.h"
19      INCLUDE "comgeom.h"
20
21c
22c   ..........    variables  en  arguments     .............
23c
24      INTEGER klevel
25      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
26c
27c   ..........    variables   locales       ................
28c
29      REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
30c   ........................................................
31c
32c
33      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
34
35      CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
36      CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
37c
38      RETURN
39      END
Note: See TracBrowser for help on using the repository browser.