source: LMDZ.3.3/trunk/libf/dyn3d/nxgrad.F @ 3431

Last change on this file since 3431 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.2 KB
Line 
1      SUBROUTINE nxgrad (klevel, rot, x, y )
2c
3c     P. Le Van
4c
5c   ********************************************************************
6c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
7c   ********************************************************************
8c       rot          est un argument  d'entree pour le s-prog
9c       x  et y    sont des arguments de sortie pour le s-prog
10c
11      IMPLICIT NONE
12c
13#include "dimensions.h"
14#include "paramet.h"
15#include "comgeom.h"
16      INTEGER klevel
17      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
18      INTEGER   l,ij
19c
20c
21      DO 10 l = 1,klevel
22c
23      DO 1  ij = 2, ip1jm
24      y( ij,l ) = (  rot( ij,l ) - rot( ij-1,l )  ) * cvsurcuv( ij )
25   1  CONTINUE
26c
27c    ..... correction pour  y ( 1,j,l )  ......
28c
29c    ....    y(1,j,l)= y(iip1,j,l) ....
30CDIR$ IVDEP
31      DO 2  ij = 1, ip1jm, iip1
32      y( ij,l ) = y( ij +iim,l )
33   2  CONTINUE
34c
35      DO 4  ij = iip2,ip1jm
36      x( ij,l ) = (  rot( ij,l ) - rot( ij -iip1,l )  ) * cusurcvu( ij )
37   4  CONTINUE
38      DO 6 ij = 1,iip1
39      x(    ij    ,l ) = 0.
40      x( ij +ip1jm,l ) = 0.
41   6  CONTINUE
42c
43  10  CONTINUE
44      RETURN
45      END
Note: See TracBrowser for help on using the repository browser.