source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/covcont.F90 @ 5356

SUBROUTINE covcont(klevel,ucov, vcov, ucont, vcont )
  USE lmdz_comgeom

!-------------------------------------------------------------------------------
! Author: P. Le Van
!-------------------------------------------------------------------------------
! Purpose: Compute contravariant components from covariant components.
!-------------------------------------------------------------------------------
USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
  USE lmdz_paramet
  IMPLICIT NONE


!===============================================================================
! Arguments:
  INTEGER, INTENT(IN)  :: klevel                    !--- VERTICAL LEVELS NUMBER
  REAL,    INTENT(IN)  :: ucov ( ip1jmp1,klevel )   !--- U COVARIANT WIND
  REAL,    INTENT(IN)  :: vcov ( ip1jm  ,klevel )   !--- V COVARIANT WIND
  REAL,    INTENT(OUT) :: ucont( ip1jmp1,klevel )   !--- U CONTRAVAR WIND
  REAL,    INTENT(OUT) :: vcont( ip1jm  ,klevel )   !--- V CONTRAVAR WIND
!===============================================================================
!   Local variables:
  INTEGER :: l
!===============================================================================
  DO l=1,klevel
    ucont(iip2:ip1jm,l)=ucov(iip2:ip1jm,l) * unscu2(iip2:ip1jm)
    vcont(   1:ip1jm,l)=vcov(   1:ip1jm,l) * unscv2(   1:ip1jm)
  END DO

END SUBROUTINE covcont