yomfa.F90

Go to the documentation of this file.

MODULE yomfa

USE parkind1  ,ONLY : jpim     ,jprb

USE type_fads, ONLY : fad

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

!*    GRIB packing options / Options du compactage GRIB

!     NVGRIB  :  Level of GRIB packing (0:no packing, 1:v0 GRIB, 2:v0mod GRIB)
!                Niveau de codage GRIB (0:pas de cod., 1:v0 GRIB, 2:v0mod GRIB)
!     NBITPG  :  Number of bits to code each grid point
!                Nombre de bits pour coder les points de grille
!     NBITCS  :  Number of bits to code each spectral coefficient
!                Nombre de bits pour coder les coefficients spectraux
!     NSTRON  :  Non-packed sub-truncation
!                Niveau de sous-troncature non compactee
!     NPULAP  :  Laplacian power
!                Puissance de Laplacien

INTEGER(KIND=JPIM) :: nvgrib
INTEGER(KIND=JPIM) :: nbitpg
INTEGER(KIND=JPIM) :: nbitcs
INTEGER(KIND=JPIM) :: nstron
INTEGER(KIND=JPIM) :: npulap

!     Fields descriptors

TYPE(fad) :: yfaorog ! Surface geopotential
TYPE(fad) :: yfasp   ! Surface pressure
TYPE(fad) :: yfapsi  ! Velocity potential
TYPE(fad) :: yfakhi  ! Stream function
TYPE(fad) :: yfaugeo ! U-Geographical wind
TYPE(fad) :: yfavgeo ! V-Geographical wind
TYPE(fad) :: yfat    ! Temperature
TYPE(fad) :: yfapd   ! Pressure departure (NH)
TYPE(fad) :: yfavd   ! Vertical divergence (NH)
TYPE(fad) :: yfaq    ! Specific humidity
TYPE(fad) :: yfal    ! Liquid water
TYPE(fad) :: yfai    ! Ice
TYPE(fad) :: yfas    ! Snow
TYPE(fad) :: yfar    ! Rain
TYPE(fad) :: yfag    ! Graupels
TYPE(fad) :: yfatke  ! Turbulent Kinetic Energy
TYPE(fad) :: yfao3   ! Ozone mixing ratio
TYPE(fad) :: yfaclf  ! Cloud fraction
TYPE(fad) :: yfacpf  ! Convective precipitation flux
TYPE(fad) :: yfaspf  ! Stratiform precipitation flux
TYPE(fad) :: yfacvgq ! CVGQ for French physics
TYPE(fad) :: yfasdsat ! Standard deviation of the Saturation Depression
TYPE(fad) :: yfacvv  ! Convective Vertical Velocity

! Pronostic convection variables
TYPE(fad) :: yfauom  ! Updraught vertic velocity
TYPE(fad) :: yfaual  ! Updraught mesh fraction
TYPE(fad) :: yfadom  ! Downdraught vertic velocity
TYPE(fad) :: yfadal  ! Downdraught mesh fraction
TYPE(fad) :: yfauen  ! Updraught entrainment
TYPE(fad) :: yfaunebh! Pseudo Hist Conv cloud fraction

! Filtered surface ln Ps for monitoring coupling updates:
TYPE(fad) :: yfafsp1  ,yfafsp2  ,yfafsp3  ,yfafsp4  ,yfafsp5
TYPE(fad) :: yfasrc  ! Second order flux for Arome Turb. Scheme
TYPE(fad) :: yfaqva  ! Total humidity amplitude variation of Q+L+I
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(nbitcs,nbitpg,npulap,nstron,nvgrib,yfaclf,yfacpf,yfacvgq,yfacvv,yfadal,yfadom,yfafsp1)
!$OMP THREADPRIVATE(yfafsp2,yfafsp3,yfafsp4,yfafsp5,yfag,yfai,yfakhi,yfal,yfao3,yfaorog,yfapd,yfapsi,yfaq)
!$OMP THREADPRIVATE(yfaqva,yfar,yfas,yfasdsat,yfasp,yfaspf,yfasrc,yfat,yfatke,yfaual,yfauen,yfaugeo)
!$OMP THREADPRIVATE(yfaunebh,yfauom,yfavd,yfavgeo)
END MODULE yomfa