yom_ygfl.F90

Go to the documentation of this file.

MODULE yom_ygfl

USE parkind1  ,ONLY : jpim     ,jprb

USE type_gfls ,ONLY : type_gfld,type_gfl_comp,type_gfl_naml

IMPLICIT NONE
SAVE

!-------------------------------------------------------------------------
! Contains the descriptors of GFL arrays 

! YGFL  : GFL general descriptor, for info about content see comments
!         in type declaration module : type_gfls.F90

! JPGFL : Max number of GFL fields
! JPNAMED_GFL : Number of currently pre-defined components of GFL
! JPGHG : Number of greenhouse gas fields
! JPGRG : Number of reactive gas fields
! JPAERO : Number of aerosol fields
! JPTRAC : Number of tracers for diagnostics
!-------------------------------------------------------------------------

INTEGER(KIND=JPIM),PARAMETER :: jpgfl=211
INTEGER(KIND=JPIM),PARAMETER :: jpnamed_gfl=22
INTEGER(KIND=JPIM),PARAMETER :: jpghg=3
INTEGER(KIND=JPIM),PARAMETER :: jptrac=2
INTEGER(KIND=JPIM),PARAMETER :: jpgrg=5
INTEGER(KIND=JPIM),PARAMETER :: jpaero=7
INTEGER(KIND=JPIM),PARAMETER :: jpforc=25
INTEGER(KIND=JPIM),PARAMETER :: jpezdiag=25
INTEGER(KIND=JPIM) :: ngfl_ext
INTEGER(KIND=JPIM) :: ngfl_forc
INTEGER(KIND=JPIM) :: ngfl_ezdiag
INTEGER(KIND=JPIM) :: nghg
INTEGER(KIND=JPIM) :: ntrac
INTEGER(KIND=JPIM) :: ngrg
INTEGER(KIND=JPIM) :: naero
INTEGER(KIND=JPIM) :: nactaero
LOGICAL ::            lghgsfc, laerosfc , lsf6sfc
TYPE(type_gfld) :: ygfl
TYPE(type_gfl_comp),TARGET  :: ygflc(jpgfl)  ! General descriptor of all components

TYPE(type_gfl_comp),POINTER  :: yq            ! Specific humidity
TYPE(type_gfl_comp),POINTER  :: yi            ! Ice water
TYPE(type_gfl_comp),POINTER  :: yl            ! Liquid water
TYPE(type_gfl_comp),POINTER  :: ys            ! Snow
TYPE(type_gfl_comp),POINTER  :: yr            ! Rain
TYPE(type_gfl_comp),POINTER  :: yg            ! Graupels
TYPE(type_gfl_comp),POINTER  :: ytke          ! Turbulent Kinetic Energy
TYPE(type_gfl_comp),POINTER  :: ya            ! Cloud fraction
TYPE(type_gfl_comp),POINTER  :: yo3           ! Ozone
TYPE(type_gfl_comp),POINTER  :: ysrc          ! Second-order flux for AROME
                                              ! s'rc'/2Sigma_s2 
                                              ! multiplied by Lambda_3
TYPE(type_gfl_comp),POINTER  :: ycpf          ! Convective precipitation flux
TYPE(type_gfl_comp),POINTER  :: yspf          ! Stratiform precipitation flux
TYPE(type_gfl_comp),POINTER  :: ycvgq         ! Moisture Convergence for french physics
TYPE(type_gfl_comp),POINTER  :: yqva          ! total humidity variation
TYPE(type_gfl_comp),POINTER  :: yghg(:)       ! Greenhouse Gases
TYPE(type_gfl_comp),POINTER  :: ygrg(:)       ! Reactive Gases
TYPE(type_gfl_comp),POINTER  :: yaero(:)      ! Aerosols
TYPE(type_gfl_comp),POINTER  :: ytrac(:)      ! tracers for diagnostics
TYPE(type_gfl_comp),POINTER  :: yforc(:)      ! large scale forcing
TYPE(type_gfl_comp),POINTER  :: yezdiag(:)    ! easy diagnostics

TYPE(type_gfl_comp),POINTER  :: ysdsat        ! Standard Deviation of the
                                              ! SATuration Depression (Sigma_s) 
TYPE(type_gfl_comp),POINTER  :: ycvv          ! Convective Vertical Velocity 

! Prognostic convection variables: add 6 named components
TYPE(type_gfl_comp),POINTER  :: yuom          ! Updraught vert velocity
TYPE(type_gfl_comp),POINTER  :: yual          ! Updraught mesh fraction
TYPE(type_gfl_comp),POINTER  :: ydom          ! Downdraught vert velocity
TYPE(type_gfl_comp),POINTER  :: ydal          ! Downdraught mesh fraction
TYPE(type_gfl_comp),POINTER  :: yuen          ! Updraught entrainment
TYPE(type_gfl_comp),POINTER  :: yunebh        ! pseudo-historic convective

! Extra fields 

TYPE(type_gfl_comp),POINTER  :: yext(:)       ! Extra fields

TYPE(type_gfl_naml)  :: yq_nl            ! Specific humidity
TYPE(type_gfl_naml)  :: yi_nl            ! Ice water
TYPE(type_gfl_naml)  :: yl_nl            ! Liquid water
TYPE(type_gfl_naml)  :: ys_nl            ! Snow
TYPE(type_gfl_naml)  :: yr_nl            ! Rain
TYPE(type_gfl_naml)  :: yg_nl            ! Graupels
TYPE(type_gfl_naml)  :: ytke_nl          ! Turbulent Kinetic Energy
TYPE(type_gfl_naml)  :: ya_nl            ! Cloud fraction
TYPE(type_gfl_naml)  :: yo3_nl           ! Ozone
TYPE(type_gfl_naml)  :: ysrc_nl          ! Second-order flux for AROME
                                         ! s'rc'/2Sigma_s2
                                         ! multiplied by Lambda_3
TYPE(type_gfl_naml)  :: ycpf_nl          ! Convective precipitation flux
TYPE(type_gfl_naml)  :: yspf_nl          ! Stratiform precipitation flux
TYPE(type_gfl_naml)  :: ycvgq_nl         ! Moisture Convergence for french physics
TYPE(type_gfl_naml)  :: yqva_nl          ! Total humidity variation

TYPE(type_gfl_naml)  :: yghg_nl(jpghg)   ! Greenhouse Gases
TYPE(type_gfl_naml)  :: ygrg_nl(jpgrg)   ! Reactive Gases
TYPE(type_gfl_naml)  :: yaero_nl(jpaero) ! Aerosol fields
TYPE(type_gfl_naml)  :: ytrac_nl(jptrac)   ! Tracers for diagnostics

! Extra fields 

TYPE(type_gfl_naml)  :: ysdsat_nl        ! Standard Deviation of the
                                         ! SATuration Depression (Sigma_s) 
TYPE(type_gfl_naml)  :: ycvv_nl          ! Convective Vertical Velocity 
TYPE(type_gfl_naml)  :: yforc_nl(jpforc) ! Forcing precursor
TYPE(type_gfl_naml)  :: yezdiag_nl(jpezdiag) ! Easy diagnostics
TYPE(type_gfl_naml)  :: yext_nl(jpgfl-jpnamed_gfl-jpghg-jpgrg-jpforc-jpezdiag-jpaero-jptrac) ! Extra fields

! Prognostic convection variables: 6 more namelist components
TYPE(type_gfl_naml)  :: yuom_nl          ! Updraught vert velocity
TYPE(type_gfl_naml)  :: yual_nl          ! Updraught mesh fraction
TYPE(type_gfl_naml)  :: ydom_nl          ! Downdraught vert velocity
TYPE(type_gfl_naml)  :: ydal_nl          ! Downdraught mesh fraction
TYPE(type_gfl_naml)  :: yuen_nl          ! Updraught entrainment
TYPE(type_gfl_naml)  :: yunebh_nl        ! Pseudi Hist Conv cloud fraction

!------------------------------------------------------------------
!$OMP THREADPRIVATE(laerosfc,lghgsfc,lsf6sfc,nactaero,naero,ngfl_ext,ngfl_ezdiag,ngfl_forc,nghg,ngrg)
!$OMP THREADPRIVATE(ntrac,ya,ya_nl,yaero,yaero_nl,ycpf,ycpf_nl,ycvgq,ycvgq_nl,ycvv,ycvv_nl,ydal,ydal_nl)
!$OMP THREADPRIVATE(ydom,ydom_nl,yext,yext_nl,yezdiag,yezdiag_nl,yforc,yforc_nl,yg,yg_nl,ygfl,ygflc,yghg)
!$OMP THREADPRIVATE(yghg_nl,ygrg,ygrg_nl,yi,yi_nl,yl,yl_nl,yo3,yo3_nl,yq,yq_nl,yqva,yqva_nl,yr,yr_nl,ys)
!$OMP THREADPRIVATE(ys_nl,ysdsat,ysdsat_nl,yspf,yspf_nl,ysrc,ysrc_nl,ytke,ytke_nl,ytrac,ytrac_nl,yual)
!$OMP THREADPRIVATE(yual_nl,yuen,yuen_nl,yunebh,yunebh_nl,yuom,yuom_nl)
END MODULE yom_ygfl