source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90 @ 5134

! $Header$

SUBROUTINE gradiv2(klevel, xcov, ycov, ld, gdx, gdy)
  !
  ! P. Le Van
  !
  !   **********************************************************
  !                            ld
  !   calcul  de  (grad (div) )   du vect. v ....
  !
  ! xcov et ycov etant les composant.covariantes de v
  !   **********************************************************
  ! xcont , ycont et ld  sont des arguments  d'entree pour le s-prog
  !  gdx   et  gdy       sont des arguments de sortie pour le s-prog
  !
  !
  USE lmdz_filtreg, ONLY: filtreg
  USE lmdz_ssum_scopy, ONLY: scopy
  USE lmdz_comdissipn, ONLY: tetaudiv, tetaurot, tetah, cdivu, crot, cdivh

  IMPLICIT NONE
  !
  INCLUDE "dimensions.h"
  INCLUDE "paramet.h"
  INCLUDE "comgeom.h"
  !
  ! ........    variables en arguments      ........

  INTEGER :: klevel
  REAL :: xcov(ip1jmp1, klevel), ycov(ip1jm, klevel)
  REAL :: gdx(ip1jmp1, klevel), gdy(ip1jm, klevel)
  !
  ! ........       variables locales       .........
  !
  REAL :: div(ip1jmp1, llm)
  REAL :: signe, nugrads
  INTEGER :: l, ij, iter, ld

  !    ........................................................
  !
  !
  CALL SCOPY(ip1jmp1 * klevel, xcov, 1, gdx, 1)
  CALL SCOPY(ip1jm * klevel, ycov, 1, gdy, 1)
  !
  !
  signe = (-1.)**ld
  nugrads = signe * cdivu
  !

  CALL    divergf(klevel, gdx, gdy, div)

  IF(ld>1)   THEN

    CALL laplacien (klevel, div, div)

    !    ......  Iteration de l'operateur laplacien_gam   .......

    DO iter = 1, ld - 2
      CALL laplacien_gam (klevel, cuvscvgam1, cvuscugam1, unsair_gam1, &
              unsapolnga1, unsapolsga1, div, div)
    ENDDO

  ENDIF

  CALL filtreg(div, jjp1, klevel, 2, 1, .TRUE., 1)
  CALL  grad  (klevel, div, gdx, gdy)

  !
  DO   l = 1, klevel
    DO  ij = 1, ip1jmp1
      gdx(ij, l) = gdx(ij, l) * nugrads
    ENDDO
    DO  ij = 1, ip1jm
      gdy(ij, l) = gdy(ij, l) * nugrads
    ENDDO
  ENDDO
  !
  RETURN
END SUBROUTINE gradiv2