geo2atm.F90

Go to the documentation of this file.

!
! $Id: /home/cvsroot/LMDZ4/libf/phylmd/geo2atm.F90,v 1.1 2008-12-05 17:56:40 lsce Exp $
!
SUBROUTINE geo2atm(im, jm, px, py, pz, plon, plat, pu, pv, pr)
  USE dimphy
  USE mod_phys_lmdz_para

  IMPLICIT NONE
  include 'YOMCST.h'

! Change wind coordinates from cartesian geocentric to local spherical
! NB! Fonctionne probablement uniquement en MPI seul (sans OpenMP)
!
  INTEGER, INTENT (IN)                 :: im, jm
  REAL, DIMENSION (im,jm), INTENT(IN)  :: px, py, pz
  REAL, DIMENSION (im,jm), INTENT(IN)  :: plon, plat
  REAL, DIMENSION (im,jm), INTENT(OUT) :: pu, pv, pr

  REAL :: rad


  rad = rpi / 180.0e0
  
  pu(:,:) = &
       - px(:,:) * sin(rad * plon(:,:)) &
       + py(:,:) * cos(rad * plon(:,:))

  pv(:,:) = &
       - px(:,:) * sin(rad * plat(:,:)) * cos(rad * plon(:,:)) &
       - py(:,:) * sin(rad * plat(:,:)) * sin(rad * plon(:,:)) &
       + pz(:,:) * cos(rad * plat(:,:))  

  pr(:,:) = &
       + px(:,:) * cos(rad * plat(:,:)) * cos(rad * plon(:,:)) &
       + py(:,:) * cos(rad * plat(:,:)) * sin(rad * plon(:,:)) &
       + pz(:,:) * sin(rad * plat(:,:))

  ! Value at North Pole
  IF (is_north_pole) THEN
     pu(:, 1) = -px(1,1)
     pv(:, 1) = -py(1,1)
     pr(:, 1) = 0.0
  ENDIF
  
  ! Value at South Pole     
  IF (is_south_pole) THEN
     pu(:,jm) = -px(1,jm)
     pv(:,jm) = -py(1,jm)
     pr(:,jm) = 0.0
  ENDIF
  
END SUBROUTINE geo2atm