Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
!OPTION! -pvctl noloopfusion
SUBROUTINE APL_AROME(YDGEOMETRY,YDSURF, YDCFU, YDXFU, YDMODEL, KBL, KGPCOMP, KIDIA , KFDIA , KLON ,&
& KTDIA , KLEV , KSTEP ,&
& KMAXDRAFT, KSGST, KNFRRC, PDT, LDXFUMSE, PINDX, PINDY ,&
& PGEMU,PGELAM,POROG,PGM,PMU0,PMU0LU,PMU0M,PMU0N,PCLON, PSLON,PVO3ABC,PLSM,&
& PAESEA , PAELAN , PAESOO , PAEDES , PAESUL, PAEVOL,&
& PGP2DSDT, PGP2DSPP, &
!---------------------------------------------------------------------
! - INPUT A M
& PAPHIM,PAPHIFM,PAPRSM, PAPRSFM, PRDELPM, PDELPM, PTM, PQVM ,&
& PCPM , PRM ,PALPHM , PLNPRM,&
& PQCM , PQIM ,PQRM , PQSM, PQGM, PQHM,&
& PLIMAM , &
& PTKEM , PEFB1 ,PEFB2 , PEFB3,&
& PSIGM,PSVM,&
& PUM , PVM, PWM, PEDR,&
& PFORCEU,PFORCEV,PFORCET,PFORCEQ,&
!---------------------------------------------------------------------
! - INOUT A S
& PGPAR, PEMTD, PEMTU, PTRSO,&
& PGDEOSI, PGUEOSI, PGMU0, PGMU0_MIN, PGMU0_MAX,&
& PGDEOTI, PGDEOTI2, PGUEOTI, PGUEOTI2, PGEOLT, PGEOXT,&
& PGRPROX, PGMIXP, PGFLUXC, PGRSURF,&
& PTURB3D,&
! - OUT A S
& PQLRAD, PQIRAD, PRH, PCLFS, PSIGS,&
& PTENDT, PTENDR, PTENDU, PTENDV,PTENDW,&
& PTENDLIMA, &
& PTENDTKE, PTENDEFB1, PTENDEFB2, PTENDEFB3,&
& PTENDEXT,PFRTH, PFRSO,PFRTHDS, PFRSODS, PFRSOPS, PFRSDNI,&
& PFRSOPT, PFRTHC, PFRSOC, &
!---------------------------------------------------------------------
! - IN FOR RADIATION IF NO SURFACE SCHEME
& PALBIN,PEMIS,&
! - INOUT for easy diag
& PEZDIAG,&
! - INOUT for CFU XFU
& PCLCH,PCLCL,PCLCM,PCLCT,PFPLSL,PFPLSN,PFPLSG,PFPLSH,PSTRTU,PSTRTV,PFCS,PFCLL,&
& PFCLN,PUCLS,PVCLS,PNUCLS,PNVCLS,PTCLS,PQCLS,PHUCLS,PUGST,PVGST,PFEVL,PFEVN, PPBLH,PSPSG,PSPSGR,&
& PSDUR,PDIAGH,PFLASH,PSFORC,PTPWCLS,PDPRECIPS,PDPRECIPS2,PVISICLD,PVISIHYDRO,PMXCLWC,&
! daand: radflex
& YDPROCSET ,YDDDH)
!**** *APL_AROME * - CALL OF PHYSICAL PARAMETERISATIONS FOR ALARO/AROME
! Sujet.
! ------
! - APPEL DES SOUS-PROGRAMMES DE PARAMETRISATION
!** Interface.
! ----------
! *CALL* *APL_AROME*
!-----------------------------------------------------------------------
! - ARGUMENTS D'ENTREE.
! - INPUT ARGUMENTS.
! -------------------
! - NOM DES PARAMETRES DE DIMENSIONNEMENT DE LA PHYSIQUE.
! - DIMENSIONS.
! KBL : NUMERO DE BLOC NPROMA
! KBL : NPROMA-PACKETS NUMBER
! KGPCOMP : NOMBRE TOTAL DE POINTS DE GRILLE SUR LE DOMAINE
! KGPCOMP : TOTAL GRID POINTS NUMBER IN THE DOMAIN
! KIDIA, KFDIA : BORNES BOUCLES HORIZONTALES (IST,IEND DANS CPG).
! KIDIA, KFDIA : START/END OF HORIZONTAL LOOP (IST,IEND IN *CPG*).
! KLON : DIMENSION HORIZONTALE (NPROMA DANS CPG).
! KLON : HORIZONTAL DIMENSION (NPROMA IN *CPG*).
! KTDIA : DEBUT BOUCLE VERTICALE DANS LA PHYSIQUE.
! KTDIA : START OF THE VERTICAL LOOP IN THE PHYSICS (IF SOME LEVELS ARE
! SKIPPED AT THE TOP OF THE MODEL).
! KLEV : FIN BOUCLE VERTICE ET DIMENSION VERTICALE (NFLEVG DANS CPG).
! KLEV : END OF VERTICAL LOOP AND VERTICAL DIMENSION(NFLEVG IN *CPG*).
! KSTEP : TIME STEP NUMBER (starting with zero)
! KMAXDRAFT : MAX NUMBER OF DRAFTS (FOR DIMENSIONNING)
! KSGST : NUMBER OF SUBGRID SURFACE TEMPERATURES AND FLUXES (NTSSG IN *CPG*)
! KNFRRC : FREQUENCY FOR CLEAR SKY RADIATION CALCULATION
! PDT : TIME STEP (in s)
! LDXFUMSE : T if CDCONF=X in order not to increment surfex timer in that case
!-----------------------------------------------------------------------
! PGEMU : SINE OF GEOGRAPHICAL LATITUDE
! PGELAM : LONGITUDE
! POROG : g * OROGRAPHY
! PGM : MAP FACTOR (used in ALARO convection only)
! PMU0 : COSINUS LOCAL INSTANTANE DE L'ANGLE ZENITHAL SOLAIRE.
! PMU0LU : COSINUS LOCAL INSTANTANE DE L'ANGLE ZENITHAL LUNAIRE.
! PMU0 : LOCAL COSINE OF INSTANTANEOUS SOLAR ZENITH ANGLE.
! PMU0M : COSINUS LOCAL MOYEN DE L'ANGLE ZENITHAL.
! PMU0M : LOCAL COSINE OF AVERAGED SOLAR ZENITH ANGLE.
! PMU0N : COSINUS LOCAL AU PAS DE TEMPS SUIVANT DE L'ANGLE ZENITHAL SOLAIRE.
! PMU0N : NEXT TIME STEP COSINUS LOCAL INSTANTANE DE L'ANGLE ZENITHAL SOLAIRE.
! PCLON : cosine of geographical longitude.
! PSLON : sine of geographical longitude.
! PVO3ABC : OZONE COEFFICIENTS FOR ARPEGE PROFILES
! PLSM : -ATMOSPHERIC MODEL- LAND-SEA MASK (! MAY BE DIFFERENT FROM
! THE SURFACE ONE)
! PAESEA : MARINE AEROSOLS (IF NVCLIA >= 4)
! PAELAN : CONTINENTAL AEROSOLS (IF NVCLIA >= 4)
! PAESOO : SOOT AEROSOLS (IF NVCLIA >= 4)
! PAEDES : DESERT AEROSOLS (IF NVCLIA >= 4)
! PAESUL : SULFATE AEROSOLS (IF LAEROSUL=.T.)
! PAEVOL : VOLCANO AEROSOLS (IF LAEROVOL=.T.)
! PGP2DSDT : STOCHASTIC PHYSICS PATTERNS
! FIELDS WITH SUBSCRIPT M FOR TIME T-DT IN 3TL OR T IN 2TL
! PAPHIM : GEOPOTENTIAL ON HALF-LEVELS
! PAPHIFM : GEOPOTENTIAL ON FULL-LEVELS
! PAPRSM : PRESSURE ON HALF LEVELS
! PAPRSFM : PRESSURE ON FULL LEVELS.
! PRDELPM : INVERSE OF PDELP
! PDELPM : LAYER THICKNESS IN PRESSURE UNITS
! PTM : TEMPERATURE.
! PQVM : SPECIFIC HUMIDITY OF WATER VAPOR
! PCPM : SPECIFIC HEAT AT CONSTANT PRESSURE FOR AIR
! PRM : GAS CONSTANT FOR AIR
! PALPHM : "alpha" on layers
! PLNPRM : "delta" on layers
! PQCM : SPECIFIC HUMIDITY OF CLOUD WATER
! PQIM : SPECIFIC HUMIDITY OF ICE
! PQRM : SPECIFIC HUMIDITY OF RAIN
! PQSM : SPECIFIC HUMIDITY OF SNOW
! PQGM : SPECIFIC HUMIDITY OF GRAUPEL
! PQHM : SPECIFIC HUMIDITY OF HAIL
! PTKEM : TURBULENT KINETIC ENERGY
! PSVM : PASSIVE SCALARS
! PSIGM : SIGMA FOR SUBGRIDCOND
! PUM : ZONAL WIND
! PVM : MERIDIAN WIND
! PWM : VERTICAL VELOCITY (m/s)
!-----------------------------------------------------------------------
! - INOUT
! PGPAR : BUFFER FOR 2D FIELDS - CONTAINS PRECIP, ALBEDO, EMISS, TS
! : SURFACE FLUXES
! PEMTD : DOWNWARD LONGWAVE EMISSIVITY
! PEMTU : UPWARD LONGWAVE EMISSIVITY
! PTRSO : SHORTWAVE TRANSMISSIVITY
! ACRANEB2 intermittency storage
! PGDEOSI : DESCENDING INCREMENTAL OPTICAL DEPTHS, SOLAR
! PGUEOSI : ASCENDING INCREMENTAL OPTICAL DEPTHS, SOLAR
! PGMU0 : COSINE OF SOLAR ZENITH ANGLE, APPROXIMATE ACTUAL VALUE
! PGMU0_MIN : COSINE OF SOLAR ZENITH ANGLE, MIN VALUE
! PGMU0_MAX : COSINE OF SOLAR ZENITH ANGLE, MAX VALUE
! PGDEOTI : DESCENDING INCREMENTAL OPTICAL DEPTHS, dB/dT(T0) WEIGHTS
! PGDEOTI2 : DESCENDING INCREMENTAL OPTICAL DEPTHS, B WEIGHTS WITH
! LINEAR T_e CORRECTION
! PGUEOTI : ASCENDING INCREMENTAL OPTICAL DEPTHS, dB/dT(T0) WEIGHTS
! PGUEOTI2 : ASCENDING INCREMENTAL OPTICAL DEPTHS, B WEIGHTS WITH
! LINEAR T_e CORRECTION
! PGEOLT : LOCAL OPTICAL DEPTHS, dB/dT(T0) WEIGHTS
! PGEOXT : MAXIMUM OPTICAL DEPTHS FOR EBL-EAL, dB/dT(T0) WEIGHTS
! PGRPROX : CORRECTION TERM FOR ADJACENT EXCHANGES
! PGMIXP : NON-STATISTICAL WEIGHTS FOR BRACKETING
! PGFLUXC : OUT OF BRACKET PART OF CLEARSKY EBL, RESP. EBL-EAL FLUX
! PGRSURF : CORRECTIVE RATIO FOR SURFACE CTS CONTRIBUTION
! PTURB3D : MATRICE DE GRADIENTS HORIZONTAUX
!-----------------------------------------------------------------------
! - OUTPUT (SUBSCRIPT S FOR T+DT)
! PCLFS : CLOUD FRACTION
! PQLRAD : SPECIFIC HUMIDITY OF CLOUD WATER FOR RTTOV
! PQIRAD : SPECIFIC HUMIDITY OF ICE FOR RTTOV
! PSIGS : SIGMA FOR SUBGRIDCOND
! PTENDT : TEMPERATURE TENDENCY
! PTENDR : HYDROMETEORE TENDENCIES
! PTENDU : ZONAL WIND TENDENCY
! PTENDV : MERIDIAN WIND TENDENCY
! PTENDW : VERTICAL VELOCITY TENDENCY
! PTENDTKE : TKE TENDENCY
! PTENDEXT : PASSIVE SCALARS TENDENCY
! PFRTH : LONGWAVE RADIATIVE FLUX
! PFRSO : SHORTWAVE RADIATIVE FLUX
! PFRTHDS : LONGWAVE DOWNWARD SURFACE RADIATIVE FLUX
! PFRSOPS : SHORTWAVE DOWNWARD SURFACE RADIATIVE FLUX DIRECT
! PFRSDNI : SHORTWAVE DIRECT NORMAL IRRADIANCE
! PFRSODS : SHORTWAVE DOWNWARD SURFACE RADIATIVE FLUX GLOBAL
! PFRSOPT : SHORTWAVE DOWNWARD TOP RADIATIVE FLUX DIRECT
! - 2D (0:1)
! PFRTHC : LONGWAVE CLEAR SKY NET RADIATIVE FLUX
! PFRSOC : SHORTWAVE CLEAR SKY NET RADIATIVE FLUX
! variables used in input for radiation in case no surface scheme is used
! PALBIN : MODEL SURFACE SHORTWAVE ALBEDO.
! PEMIS : MODEL SURFACE LONGWAVE EMISSIVITY.
! Part of GFL strcture dedicated to easy diagnostics (to be used as a print...)
! PEZDIAG : MULPITPLE ARRAY TO BE FILLED BY THE USER BY 3D FIELDS
! (NGFL_EZDIAG ONES)
! output for CFU XFU
Loading
Loading full blame...