source: LMDZ6/trunk/libf/phylmd/rrtm/yom_ygfl.F90 @ 3897

Last change on this file since 3897 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP

OpenMP modifications
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 6.4 KB
Line 
1MODULE YOM_YGFL
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5USE TYPE_GFLS ,ONLY : TYPE_GFLD,TYPE_GFL_COMP,TYPE_GFL_NAML
6
7IMPLICIT NONE
8SAVE
9
10!-------------------------------------------------------------------------
11! Contains the descriptors of GFL arrays
12
13! YGFL  : GFL general descriptor, for info about content see comments
14!         in type declaration module : type_gfls.F90
15
16! JPGFL : Max number of GFL fields
17! JPNAMED_GFL : Number of currently pre-defined components of GFL
18! JPGHG : Number of greenhouse gas fields
19! JPGRG : Number of reactive gas fields
20! JPAERO : Number of aerosol fields
21! JPTRAC : Number of tracers for diagnostics
22!-------------------------------------------------------------------------
23
24INTEGER(KIND=JPIM),PARAMETER :: JPGFL=211
25INTEGER(KIND=JPIM),PARAMETER :: JPNAMED_GFL=22
26INTEGER(KIND=JPIM),PARAMETER :: JPGHG=3
27INTEGER(KIND=JPIM),PARAMETER :: JPTRAC=2
28INTEGER(KIND=JPIM),PARAMETER :: JPGRG=5
29INTEGER(KIND=JPIM),PARAMETER :: JPAERO=7
30INTEGER(KIND=JPIM),PARAMETER :: JPFORC=25
31INTEGER(KIND=JPIM),PARAMETER :: JPEZDIAG=25
32INTEGER(KIND=JPIM) :: NGFL_EXT
33INTEGER(KIND=JPIM) :: NGFL_FORC
34INTEGER(KIND=JPIM) :: NGFL_EZDIAG
35INTEGER(KIND=JPIM) :: NGHG
36INTEGER(KIND=JPIM) :: NTRAC
37INTEGER(KIND=JPIM) :: NGRG
38INTEGER(KIND=JPIM) :: NAERO
39INTEGER(KIND=JPIM) :: NACTAERO
40LOGICAL ::            LGHGSFC, LAEROSFC , LSF6SFC
41TYPE(TYPE_GFLD) :: YGFL
42TYPE(TYPE_GFL_COMP),TARGET  :: YGFLC(JPGFL)  ! General descriptor of all components
43
44TYPE(TYPE_GFL_COMP),POINTER  :: YQ            ! Specific humidity
45TYPE(TYPE_GFL_COMP),POINTER  :: YI            ! Ice water
46TYPE(TYPE_GFL_COMP),POINTER  :: YL            ! Liquid water
47TYPE(TYPE_GFL_COMP),POINTER  :: YS            ! Snow
48TYPE(TYPE_GFL_COMP),POINTER  :: YR            ! Rain
49TYPE(TYPE_GFL_COMP),POINTER  :: YG            ! Graupels
50TYPE(TYPE_GFL_COMP),POINTER  :: YTKE          ! Turbulent Kinetic Energy
51TYPE(TYPE_GFL_COMP),POINTER  :: YA            ! Cloud fraction
52TYPE(TYPE_GFL_COMP),POINTER  :: YO3           ! Ozone
53TYPE(TYPE_GFL_COMP),POINTER  :: YSRC          ! Second-order flux for AROME
54                                              ! s'rc'/2Sigma_s2
55                                              ! multiplied by Lambda_3
56TYPE(TYPE_GFL_COMP),POINTER  :: YCPF          ! Convective precipitation flux
57TYPE(TYPE_GFL_COMP),POINTER  :: YSPF          ! Stratiform precipitation flux
58TYPE(TYPE_GFL_COMP),POINTER  :: YCVGQ         ! Moisture Convergence for french physics
59TYPE(TYPE_GFL_COMP),POINTER  :: YQVA          ! total humidity variation
60TYPE(TYPE_GFL_COMP),POINTER  :: YGHG(:)       ! Greenhouse Gases
61TYPE(TYPE_GFL_COMP),POINTER  :: YGRG(:)       ! Reactive Gases
62TYPE(TYPE_GFL_COMP),POINTER  :: YAERO(:)      ! Aerosols
63TYPE(TYPE_GFL_COMP),POINTER  :: YTRAC(:)      ! tracers for diagnostics
64TYPE(TYPE_GFL_COMP),POINTER  :: YFORC(:)      ! large scale forcing
65TYPE(TYPE_GFL_COMP),POINTER  :: YEZDIAG(:)    ! easy diagnostics
66
67TYPE(TYPE_GFL_COMP),POINTER  :: YSDSAT        ! Standard Deviation of the
68                                              ! SATuration Depression (Sigma_s)
69TYPE(TYPE_GFL_COMP),POINTER  :: YCVV          ! Convective Vertical Velocity
70
71! Prognostic convection variables: add 6 named components
72TYPE(TYPE_GFL_COMP),POINTER  :: YUOM          ! Updraught vert velocity
73TYPE(TYPE_GFL_COMP),POINTER  :: YUAL          ! Updraught mesh fraction
74TYPE(TYPE_GFL_COMP),POINTER  :: YDOM          ! Downdraught vert velocity
75TYPE(TYPE_GFL_COMP),POINTER  :: YDAL          ! Downdraught mesh fraction
76TYPE(TYPE_GFL_COMP),POINTER  :: YUEN          ! Updraught entrainment
77TYPE(TYPE_GFL_COMP),POINTER  :: YUNEBH        ! pseudo-historic convective
78
79! Extra fields
80
81TYPE(TYPE_GFL_COMP),POINTER  :: YEXT(:)       ! Extra fields
82
83TYPE(TYPE_GFL_NAML)  :: YQ_NL            ! Specific humidity
84TYPE(TYPE_GFL_NAML)  :: YI_NL            ! Ice water
85TYPE(TYPE_GFL_NAML)  :: YL_NL            ! Liquid water
86TYPE(TYPE_GFL_NAML)  :: YS_NL            ! Snow
87TYPE(TYPE_GFL_NAML)  :: YR_NL            ! Rain
88TYPE(TYPE_GFL_NAML)  :: YG_NL            ! Graupels
89TYPE(TYPE_GFL_NAML)  :: YTKE_NL          ! Turbulent Kinetic Energy
90TYPE(TYPE_GFL_NAML)  :: YA_NL            ! Cloud fraction
91TYPE(TYPE_GFL_NAML)  :: YO3_NL           ! Ozone
92TYPE(TYPE_GFL_NAML)  :: YSRC_NL          ! Second-order flux for AROME
93                                         ! s'rc'/2Sigma_s2
94                                         ! multiplied by Lambda_3
95TYPE(TYPE_GFL_NAML)  :: YCPF_NL          ! Convective precipitation flux
96TYPE(TYPE_GFL_NAML)  :: YSPF_NL          ! Stratiform precipitation flux
97TYPE(TYPE_GFL_NAML)  :: YCVGQ_NL         ! Moisture Convergence for french physics
98TYPE(TYPE_GFL_NAML)  :: YQVA_NL          ! Total humidity variation
99
100TYPE(TYPE_GFL_NAML)  :: YGHG_NL(JPGHG)   ! Greenhouse Gases
101TYPE(TYPE_GFL_NAML)  :: YGRG_NL(JPGRG)   ! Reactive Gases
102TYPE(TYPE_GFL_NAML)  :: YAERO_NL(JPAERO) ! Aerosol fields
103TYPE(TYPE_GFL_NAML)  :: YTRAC_NL(JPTRAC)   ! Tracers for diagnostics
104
105! Extra fields
106
107TYPE(TYPE_GFL_NAML)  :: YSDSAT_NL        ! Standard Deviation of the
108                                         ! SATuration Depression (Sigma_s)
109TYPE(TYPE_GFL_NAML)  :: YCVV_NL          ! Convective Vertical Velocity
110TYPE(TYPE_GFL_NAML)  :: YFORC_NL(JPFORC) ! Forcing precursor
111TYPE(TYPE_GFL_NAML)  :: YEZDIAG_NL(JPEZDIAG) ! Easy diagnostics
112TYPE(TYPE_GFL_NAML)  :: YEXT_NL(JPGFL-JPNAMED_GFL-JPGHG-JPGRG-JPFORC-JPEZDIAG-JPAERO-JPTRAC) ! Extra fields
113
114! Prognostic convection variables: 6 more namelist components
115TYPE(TYPE_GFL_NAML)  :: YUOM_NL          ! Updraught vert velocity
116TYPE(TYPE_GFL_NAML)  :: YUAL_NL          ! Updraught mesh fraction
117TYPE(TYPE_GFL_NAML)  :: YDOM_NL          ! Downdraught vert velocity
118TYPE(TYPE_GFL_NAML)  :: YDAL_NL          ! Downdraught mesh fraction
119TYPE(TYPE_GFL_NAML)  :: YUEN_NL          ! Updraught entrainment
120TYPE(TYPE_GFL_NAML)  :: YUNEBH_NL        ! Pseudi Hist Conv cloud fraction
121
122!------------------------------------------------------------------
123!$OMP THREADPRIVATE(laerosfc,lghgsfc,lsf6sfc,nactaero,naero,ngfl_ext,ngfl_ezdiag,ngfl_forc,nghg,ngrg)
124!$OMP THREADPRIVATE(ntrac,ya,ya_nl,yaero,yaero_nl,ycpf,ycpf_nl,ycvgq,ycvgq_nl,ycvv,ycvv_nl,ydal,ydal_nl)
125!$OMP THREADPRIVATE(ydom,ydom_nl,yext,yext_nl,yezdiag,yezdiag_nl,yforc,yforc_nl,yg,yg_nl,ygfl,ygflc,yghg)
126!$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)
127!$OMP THREADPRIVATE(ys_nl,ysdsat,ysdsat_nl,yspf,yspf_nl,ysrc,ysrc_nl,ytke,ytke_nl,ytrac,ytrac_nl,yual)
128!$OMP THREADPRIVATE(yual_nl,yuen,yuen_nl,yunebh,yunebh_nl,yuom,yuom_nl)
129END MODULE YOM_YGFL
Note: See TracBrowser for help on using the repository browser.