yomarar.F90

Go to the documentation of this file.

MODULE yomarar

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!*
!     ------------------------------------------------------------------

!     VARIABLES pour utiliser la PHYSIQUE de meso_NH :
!     VARIABLES to use the MESO-NH physics:

!     KSPLITR :  Number of small time step
!                integration for  rain
!                sedimendation

INTEGER(KIND=JPIM) :: nsplitr     ! ??? (missing comment)
INTEGER(KIND=JPIM) :: nrr, nrrl, nrri   !number of microphysical species
INTEGER(KIND=JPIM) :: nsv         !number of passiv variables in MesoNH,
                                  ! always 0 in AROME
INTEGER(KIND=JPIM) :: nswb_mnh    !number of SW bands for surface
                                  ! (must be equal to NSW !!)
INTEGER(KIND=JPIM) :: ngpar       !number of fields in the buffer containing
                                  ! the 2D pseudo-historical variables.
INTEGER(KIND=JPIM) :: minprr      !pointer on INPRR 
INTEGER(KIND=JPIM) :: macprr      !pointer on ACPRR 
INTEGER(KIND=JPIM) :: minprs      !pointer on INPRS
INTEGER(KIND=JPIM) :: macprs      !pointer on ACPRS
INTEGER(KIND=JPIM) :: minprg      !pointer on INPRG
INTEGER(KIND=JPIM) :: macprg      !pointer on ACPRG
INTEGER(KIND=JPIM) :: malbdir     !pointer on ALBDIR
INTEGER(KIND=JPIM) :: malbsca     !pointer on ALBSCA
INTEGER(KIND=JPIM) :: mrain       !pointer on surface rain
INTEGER(KIND=JPIM) :: msnow       !pointer on surface snow
INTEGER(KIND=JPIM) :: mgz0        !pointer on GZ0 
INTEGER(KIND=JPIM) :: mgz0h       !pointer on GZ0H 
INTEGER(KIND=JPIM) :: mvqs        !pointer on surface moisture
INTEGER(KIND=JPIM) :: mvts        !pointer on surface temperature 
INTEGER(KIND=JPIM) :: mvemis      !pointer on surface emissivity
INTEGER(KIND=JPIM) :: mswdir      !pointer on SW direct surface flux
INTEGER(KIND=JPIM) :: mswdif      !pointer on SW surface diffuse flux
INTEGER(KIND=JPIM) :: msfu        !pointer on U surface flux 
INTEGER(KIND=JPIM) :: msfv        !pointer on V surface flux
INTEGER(KIND=JPIM) :: msfrv       !pointer on Qv  surface flux
INTEGER(KIND=JPIM) :: msfth       !pointer on Theta surface flux
INTEGER(KIND=JPIM) :: mfrthds     !pointer on IR downward surface flux
INTEGER(KIND=JPIM) :: mum         !pointer on U surface wind
INTEGER(KIND=JPIM) :: mvm         !pointer on V surface wind
INTEGER(KIND=JPIM) :: mtm         !pointer on T at first model layer
INTEGER(KIND=JPIM) :: mqvm        !pointer on QV at first model layer
INTEGER(KIND=JPIM) :: mpabsm      !pointer on Pressure at first model layer
INTEGER(KIND=JPIM) :: mpsurf      !pointer on surface pressure
INTEGER(KIND=JPIM) :: mzz         !pointer on height of first model layer
INTEGER(KIND=JPIM) :: mrhodref    !pointer on RHODREF
INTEGER(KIND=JPIM) :: msfsv       !pointer on surf. fluxes of scalars

REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE  :: xsw_bands  !SW spectral bands
                                                                                      ! for ext. surface scheme
LOGICAL :: losubg_cond ! see OSUBG_COND in mesoNH
LOGICAL :: losubg_aucv ! see OSUBG_AUCV in mesoNH
LOGICAL :: lowarm      ! see OWARM in mesoNH
LOGICAL :: losigmas    ! see OSIGMAS in mesoNH

! * for the squall line case:
LOGICAL :: lsquall ! use for the squall line case
INTEGER(KIND=JPIM) :: nrefroi1 !starting point for cooling 
INTEGER(KIND=JPIM) :: nrefroi2 !end point for cooling
REAL(KIND=JPRB) :: vsquall ! mean velocity displacement of the squall line.

! * for the MESO-NH physics printings:
INTEGER(KIND=JPIM) :: nptp ! index in NPROMA paquet where the print will be done
INTEGER(KIND=JPIM) :: nprintfr !frequency of physical prints in apl_arome
                               ! (default 1/h) 

! * for the surface diagnostics.
INTEGER(KIND=JPIM) :: ndiagfr  ! frequency of surface scheme diagnostics

!* for other diagnostics
!  wmax per vertical level 
LOGICAL :: ldiagwmax !activate print of WMAX in apl_arome
INTEGER(KIND=JPIM) :: ndiagwmax ! frequency of preceding prints (in time step)

!* for chemical scheme
! time step factor
INTEGER(KIND=JPIM) :: ndtchem
!* for MNH budget anlysis
LOGICAL :: larobu_enable

! for budgets and DDH, number of processes in budget arrays 
INTEGER(KIND=JPIM),ALLOCATABLE ::  nbuproc(:)
INTEGER(KIND=JPIM),ALLOCATABLE ::  njbudg1(:)
INTEGER(KIND=JPIM),ALLOCATABLE ::  njbudg2(:)

!* number of budgets used in AROME, without pasive scalars
INTEGER(KIND=JPIM), PARAMETER ::  jparobud = 11

!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(larobu_enable,ldiagwmax,losigmas,losubg_aucv,losubg_cond,lowarm,lsquall)
!$OMP THREADPRIVATE(macprg,macprr,macprs,malbdir,malbsca,mfrthds,mgz0,mgz0h,minprg,minprr,minprs)
!$OMP THREADPRIVATE(mpabsm,mpsurf,mqvm,mrain,mrhodref,msfrv,msfsv,msfth,msfu,msfv,msnow,mswdif)
!$OMP THREADPRIVATE(mswdir,mtm,mum,mvemis,mvm,mvqs,mvts,mzz,ndiagfr,ndiagwmax,ndtchem,ngpar)
!$OMP THREADPRIVATE(nprintfr,nptp,nrefroi1,nrefroi2,nrr,nrri,nrrl,nsplitr,nsv,nswb_mnh,vsquall)
!$OMP THREADPRIVATE(nbuproc,njbudg1,njbudg2,xsw_bands)
END MODULE yomarar