source: LMDZ.3.3/trunk/libf/dyn3d/nxgradst.F @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1      SUBROUTINE nxgradst (klevel,rot, x, y )
2c
3      IMPLICIT NONE
4c     Auteur :  P. Le Van
5c
6c   ********************************************************************
7c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
8c   ********************************************************************
9c       rot          est un argument  d'entree pour le s-prog
10c       x  et y    sont des arguments de sortie pour le s-prog
11c
12#include "dimensions.h"
13#include "paramet.h"
14#include "comgeom.h"
15
16      INTEGER klevel
17      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
18      INTEGER l,ij
19c
20      DO 10 l = 1,klevel
21c
22      DO 1  ij = 2, ip1jm
23      y(ij,l)=( rot(ij,l) - rot(ij-1,l))
24   1  CONTINUE
25c
26c    ..... correction pour  y ( 1,j,l )  ......
27c
28c    ....    y(1,j,l)= y(iip1,j,l) ....
29
30      DO 2  ij = 1, ip1jm, iip1
31      y( ij,l ) = y( ij +iim,l )
32   2  CONTINUE
33c
34      DO 4  ij = iip2,ip1jm
35      x(ij,l)= rot(ij,l)-rot(ij-iip1,l)
36   4  CONTINUE
37      DO 6 ij = 1,iip1
38      x(    ij    ,l ) = 0.
39      x( ij +ip1jm,l ) = 0.
40   6  CONTINUE
41c
42  10  CONTINUE
43      RETURN
44      END
Note: See TracBrowser for help on using the repository browser.