source: LMDZ6/branches/Amaury_dev/libf/dyn3dmem/nxgrad_loc.f90 @ 5500

SUBROUTINE nxgrad_loc(klevel, rot, x, y )

  ! P. Le Van

  !   ********************************************************************
  !  calcul du gradient tourne de pi/2 du rotationnel du vect.v
  !   ********************************************************************
  !   rot          est un argument  d'entree pour le s-prog
  !   x  et y    sont des arguments de sortie pour le s-prog

  USE parallel_lmdz
  USE lmdz_comgeom

USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
  USE lmdz_paramet
  IMPLICIT NONE
  !


  INTEGER :: klevel
  REAL :: rot( ijb_v:ije_v,klevel ),x( ijb_u:ije_u,klevel )
  REAL :: y(ijb_v:ije_v,klevel )
  INTEGER :: l,ij
  INTEGER :: ijb,ije


!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
  DO l = 1,klevel

  ijb=ij_begin
  ije=ij_end
  IF (pole_sud)  ije=ij_end-iip1

  DO ij = ijb+1, ije
  y( ij,l ) = (  rot( ij,l ) - rot( ij-1,l )  ) * cvsurcuv( ij )
  END DO

  !    ..... correction pour  y ( 1,j,l )  ......

  !    ....    y(1,j,l)= y(iip1,j,l) ....
  !DIR$ IVDEP
  DO ij = ijb, ije, iip1
  y( ij,l ) = y( ij +iim,l )
  END DO

  ijb=ij_begin
  ije=ij_end+iip1

  IF (pole_nord)  ijb=ij_begin+iip1
  IF (pole_sud)  ije=ij_end-iip1

  DO ij = ijb,ije
  x( ij,l ) = (  rot( ij,l ) - rot( ij -iip1,l )  ) * cusurcvu( ij )
  END DO

  IF (pole_nord) THEN
    DO ij = 1,iip1
      x(    ij    ,l ) = 0.
    ENDDO
  ENDIF

  IF (pole_sud) THEN
    DO ij = 1,iip1
      x( ij +ip1jm,l ) = 0.
    ENDDO
  ENDIF

  END DO
!$OMP END DO NOWAIT

END SUBROUTINE nxgrad_loc