surface_ri.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
    SUBROUTINE surface_ri(PTG, PQS, PEXNS, PEXNA, PTA, PQA,   &
                               pzref, puref, pdircoszw, pvmod, pri )  
!   ######################################################################
!
!!****  *SURFACE_RI*  
!!
!!    PURPOSE
!!    -------
!
!     Computes the richardson number near the ground
!         
!     
!!**  METHOD
!!    ------
!
!
!
!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    MODD_CST
!!    MODD_GROUND_PAR
!!
!!      
!!    REFERENCE
!!    ---------
!!
!!      
!!    AUTHOR
!!    ------
!!
!!      V. Masson           * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    22/09/98 
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_csts,     ONLY : xrv, xrd, xg
USE modd_surf_atm, ONLY : xrimax
USE modi_wind_threshold
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
!
REAL, DIMENSION(:), INTENT(IN)    :: ptg      ! surface temperature
REAL, DIMENSION(:), INTENT(IN)    :: pqs      ! surface specific humidity
REAL, DIMENSION(:), INTENT(IN)    :: pexns    ! surface exner function
REAL, DIMENSION(:), INTENT(IN)    :: pta      ! temperature at the lowest level
REAL, DIMENSION(:), INTENT(IN)    :: pqa      ! specific humidity
                                              ! at the lowest level
REAL, DIMENSION(:), INTENT(IN)    :: pexna    ! exner function
                                              ! at the lowest level
REAL, DIMENSION(:), INTENT(IN)    :: pvmod    ! module of the horizontal wind
!
REAL, DIMENSION(:), INTENT(IN)    :: pzref    ! reference height of the first
                                              ! atmospheric level
REAL, DIMENSION(:), INTENT(IN)    :: puref    ! reference height of the wind
!                                             ! NOTE this is different from ZZREF
!                                             ! ONLY in stand-alone/forced mode,
!                                             ! NOT when coupled to a model (MesoNH)
REAL, DIMENSION(:), INTENT(IN)    :: pdircoszw! Cosine of the angle between
!                                             ! the normal to the surface and
!                                             ! the vertical
!
REAL, DIMENSION(:), INTENT(OUT)   :: pri      ! Richardson number
!
!*      0.2    declarations of local variables
!
!
REAL, DIMENSION(SIZE(PTG))   :: zthva, zthvs
REAL, DIMENSION(SIZE(PVMOD)) :: zvmod
REAL(KIND=JPRB) :: zhook_handle
!-------------------------------------------------------------------------------
!
!       1.     Richardson number
!              -----------------
!                
!                                                 virtual potential        
!                                                 temperature at the 
!                                                 first atmospheric level and
!                                                 at the surface
!
IF (lhook) CALL dr_hook('SURFACE_RI',0,zhook_handle)
!
zthva(:)=pta(:)/pexna(:)*( 1.+(xrv/xrd-1.)*pqa(:) )   
zthvs(:)=ptg(:)/pexns(:)*( 1.+(xrv/xrd-1.)*pqs(:) )
!                                                 
zvmod(:) = wind_threshold(pvmod(:),puref(:))
!
                                                ! Richardson's number
pri(:) = xg * pdircoszw(:) * puref(:) * puref(:)              &
          * (zthva(:)-zthvs(:)) / (0.5 * (zthva(:)+zthvs(:)) )  &
          / (zvmod(:)*zvmod(:)) /pzref(:)  
!
pri(:) = min(pri(:),xrimax)
!
IF (lhook) CALL dr_hook('SURFACE_RI',1,zhook_handle)
!-------------------------------------------------------------------------------
!
END SUBROUTINE surface_ri