yomtoph.F90

Go to the documentation of this file.

MODULE yomtoph

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!*
!     ------------------------------------------------------------------
!     Top limits of parametrization call
!     we have one by parameterization,
!              ETXXXX : Top pressure
!              NTXXXX : Corresponding level in standard atmosphere

!       ETQSAT,ETDIFU,ETCOEF,ETDRAG,ETCVIM,ETPLUI,ETRADI,ETNEBU
!       ETOZON,ETDRME,ETCOEFE,ETCOET,ETAJUC,NTAJUC
!       NTQSAT,NTDIFU,NTCOEF,NTDRAG,NTCVIM,NTPLUI,NTRADI,NTNEBU
!       NTOZON,NTDRME,NTCOEFE,NTCOET

!     Constants for Mesospheric drag parameterization

!       XDRMUK  : Mesospheric drag coefficient for U and V
!       XDRMUX  : Maximum mesospheric drag coefficient for U and V
!       XDRMUP  : Bottom pressure for U and V
!       XDRMTK  : Mesospheric drag coefficient for T
!       XDRMTX  : Maximum mesospheric drag coefficient for T
!       XDRMTP  : Bottom pressure for T
!       XDRMQK  : Mesospheric drag coefficient for Q
!       XDRMQP  : Bottom pressure for Q

!       RMESOU(NFLEVG) : Vertical mesospheric drag profil for U and V
!       RMESOT(NFLEVG) : Vertical mesospheric drag profil for T
!       RMESOQ(NFLEV)  : Vertical mesospheric drag profil for Q

!       RFMESOQ   : Mesospheric water reference

!       RCLX      : Multiplicator for Cl term in ozone photochemistry

!       TPSCLIM   : Temperature threshold for activation of heterogeneous
!                   chemistry (polar stratospheric clouds temperature formation)

REAL(KIND=JPRB),ALLOCATABLE:: rmesou(:)
REAL(KIND=JPRB),ALLOCATABLE:: rmesot(:)
REAL(KIND=JPRB),ALLOCATABLE:: rmesoq(:)

REAL(KIND=JPRB) :: rfmesoq

INTEGER(KIND=JPIM) :: ntqsat
INTEGER(KIND=JPIM) :: ntdifu
INTEGER(KIND=JPIM) :: ntcoef
INTEGER(KIND=JPIM) :: ntdrag
INTEGER(KIND=JPIM) :: ntcvim
INTEGER(KIND=JPIM) :: ntplui
INTEGER(KIND=JPIM) :: ntradi
INTEGER(KIND=JPIM) :: ntnebu
INTEGER(KIND=JPIM) :: ntozon
INTEGER(KIND=JPIM) :: ntdrme
INTEGER(KIND=JPIM) :: ntcoefe
INTEGER(KIND=JPIM) :: ntcoet
INTEGER(KIND=JPIM) :: ntajuc
REAL(KIND=JPRB) :: etqsat
REAL(KIND=JPRB) :: etdifu
REAL(KIND=JPRB) :: etcoef
REAL(KIND=JPRB) :: etdrag
REAL(KIND=JPRB) :: etcvim
REAL(KIND=JPRB) :: etplui
REAL(KIND=JPRB) :: etradi
REAL(KIND=JPRB) :: etnebu
REAL(KIND=JPRB) :: etozon
REAL(KIND=JPRB) :: etdrme
REAL(KIND=JPRB) :: etcoefe
REAL(KIND=JPRB) :: etcoet
REAL(KIND=JPRB) :: etajuc
REAL(KIND=JPRB) :: xdrmuk
REAL(KIND=JPRB) :: xdrmux
REAL(KIND=JPRB) :: xdrmup
REAL(KIND=JPRB) :: xdrmtk
REAL(KIND=JPRB) :: xdrmtx
REAL(KIND=JPRB) :: xdrmtp
REAL(KIND=JPRB) :: xdrmqk
REAL(KIND=JPRB) :: xdrmqp

REAL(KIND=JPRB) :: rclx

REAL(KIND=JPRB) :: tpsclim

!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(etajuc,etcoef,etcoefe,etcoet,etcvim,etdifu,etdrag,etdrme,etnebu,etozon,etplui)
!$OMP THREADPRIVATE(etqsat,etradi,ntajuc,ntcoef,ntcoefe,ntcoet,ntcvim,ntdifu,ntdrag,ntdrme,ntnebu)
!$OMP THREADPRIVATE(ntozon,ntplui,ntqsat,ntradi,rclx,rfmesoq,tpsclim,xdrmqk,xdrmqp,xdrmtk,xdrmtp)
!$OMP THREADPRIVATE(xdrmtx,xdrmuk,xdrmup,xdrmux)
!$OMP THREADPRIVATE(rmesoq,rmesot,rmesou)
END MODULE yomtoph