c P. Le Van c *=*=*=*= rotat.html =*=*=*=*
SUBROUTINE rotat

SUBROUTINE rotat


      SUBROUTINE rotat (klevel, x, y, rot )
c**************************************************************
c. calcule le rotationnel
c   a tous les niveaux d'1 vecteur de comp. x et y ..
c         x  et  y etant des composantes  covariantes  .....
c********************************************************************
c        x  et y     sont des arguments d'entree pour le s-prog
c        rot          est  un argument  de sortie pour le s-prog
c
      IMPLICIT NONE
c
#include "dimensions.h"
#include "paramet.h"
#include "comgeom.h"
      INTEGER klevel
      REAL rot( ip1jm,klevel )
      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
      INTEGER  l, ij
c
c
      DO 5 l = 1,klevel
c
      DO 1 ij = 1, ip1jm - 1
      rot( ij,l )  =  (  y( ij+1 , l )  -  y( ij,l )   +
     *                 x(ij +iip1, l )  -  x( ij,l )  ) * unsairez( ij )
   1  CONTINUE
c
c    .... correction pour rot( iip1,j,l)  ....
c
c    ....   rot(iip1,j,l)= rot(1,j,l) ...
CDIR$ IVDEP
      DO 2 ij = iip1, ip1jm, iip1
      rot( ij,l ) = rot( ij -iim,l )
   2  CONTINUE
c
   5  CONTINUE
      RETURN
      END