LMDZ
sw2s.F90
Go to the documentation of this file.
1 SUBROUTINE sw2s ( KIDIA, KFDIA, KLON , KLEV , KAER, KNU &
2  &, paer ,paki, palbd, palbp, pcg , pcld, pclear, pcldsw &
3  &, pdsig ,pomega,poz , prmu , psec , ptau &
4  &, pud ,pwv , pqs &
5  &, pfdown,pfup,pfdownc,pfupc )
6 
7 !**** *SW2* - SHORTWAVE RADIATION, 2ND SPECTRAL INTERVAL
8 
9 ! PURPOSE.
10 ! --------
11 
12 ! THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN THE
13 ! SECOND SPECTRAL INTERVAL FOLLOWING FOUQUART AND BONNEL (1980).
14 
15 !** INTERFACE.
16 ! ----------
17 
18 ! *SW2S* IS CALLED FROM *SW*.
19 
20 
21 ! IMPLICIT ARGUMENTS :
22 ! --------------------
23 
24 ! ==== INPUTS ===
25 ! ==== OUTPUTS ===
26 
27 ! METHOD.
28 ! -------
29 
30 ! 1. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING TO
31 ! CONTINUUM SCATTERING
32 ! 2. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING FOR
33 ! A GREY MOLECULAR ABSORPTION
34 ! 3. LAPLACE TRANSFORM ON THE PREVIOUS TO GET EFFECTIVE AMOUNTS
35 ! OF ABSORBERS
36 ! 4. APPLY H2O AND U.M.G. TRANSMISSION FUNCTIONS
37 ! 5. MULTIPLY BY OZONE TRANSMISSION FUNCTION
38 
39 ! EXTERNALS.
40 ! ----------
41 
42 ! *SWCLR*, *SWR*, *SWDE*, *SWTT*
43 
44 ! REFERENCE.
45 ! ----------
46 
47 ! SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
48 ! DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
49 
50 ! AUTHOR.
51 ! -------
52 ! JEAN-JACQUES MORCRETTE *ECMWF*
53 
54 ! MODIFICATIONS.
55 ! --------------
56 ! ORIGINAL : 89-07-14
57 ! 94-11-15 J.-J. MORCRETTE DIRECT/DIFFUSE ALBEDO
58 ! 96-05-30 Michel Deque (security in EXP())
59 ! ------------------------------------------------------------------
60 
61 
62 #include "tsmbkind.h"
63 
64 USE yoesw , ONLY : rray ,rsun
65 USE yoerdu , ONLY : replog
66 
67 
68 IMPLICIT NONE
69 
70 
71 ! DUMMY INTEGER SCALARS
72 integer_m :: kaer
73 integer_m :: kfdia
74 integer_m :: kidia
75 integer_m :: klev
76 integer_m :: klon
77 integer_m :: knu
78 
79 
80 
81 
82 !#include "yoeaer.h"
83 ! ------------------------------------------------------------------
84 
85 !* 0.1 ARGUMENTS
86 ! ---------
87 
88 real_b :: paer(klon,klev,5), paki(klon,2)&
89  &, palbd(klon,2) , palbp(klon,2)&
90  &, pcg(klon,2,klev) , pcld(klon,klev)&
91  &, pcldsw(klon,klev)&
92  &, pclear(klon) , pdsig(klon,klev)&
93  &, pomega(klon,2,klev),poz(klon,klev)&
94  &, pqs(klon,klev)&
95  &, prmu(klon) , psec(klon)&
96  &, ptau(klon,2,klev), pud(klon,5,klev+1)&
97  &, pwv(klon,klev)
98 
99 real_b :: pfdown(klon,klev+1),pfup(klon,klev+1)
100 real_b :: pfdownc(klon,klev+1),pfupc(klon,klev+1)
101 
102 ! ------------------------------------------------------------------
103 
104 !* 0.2 LOCAL ARRAYS
105 ! ------------
106 
107 integer_m :: iind2(2), iind3(3)
108 real_b :: zcgaz(klon,klev)&
109  &, zfd(klon,klev+1), zfu(klon,klev+1) &
110  &, zg(klon), zgg(klon)&
111  &, zpizaz(klon,klev)&
112  &, zrayl(klon), zray1(klon,klev+1)&
113  &, zray2(klon,klev+1), zref(klon), zrefz(klon,2,klev+1)&
114  &, zre1(klon), zre2(klon)&
115  &, zrj(klon,6,klev+1), zrj0(klon,6,klev+1)&
116  &, zrk(klon,6,klev+1), zrk0(klon,6,klev+1)&
117  &, zrl(klon,8)&
118  &, zrmue(klon,klev+1), zrmu0(klon,klev+1)&
119  &, zrmuz(klon), zrneb(klon), zruef(klon,8)&
120  &, zr1(klon) , zr2(klon,2), zr3(klon,3), zr4(klon)&
121  &, zr21(klon), zr22(klon)&
122  &, zs(klon)&
123  &, ztauaz(klon,klev), zto1(klon), ztr(klon,2,klev+1)&
124  &, ztra1(klon,klev+1), ztra2(klon,klev+1)&
125  &, ztr1(klon), ztr2(klon)&
126  &, zw(klon) , zw1(klon), zw2(klon,2)&
127  &, zw3(klon,3), zw4(klon), zw5(klon)
128 
129 ! LOCAL INTEGER SCALARS
130 integer_m :: iabs, ikl, ikm1, jabs, jaj, jajp, jk, jkki,&
131  &jkkp4, jkl, jklp1, jkm1, jl, jn, jn2j, jref
132 
133 ! LOCAL REAL SCALARS
134 real_b :: zaa, zbb, zcneb, zre11, zrki, zrmum1, zwh2o
135 
136 
137 
138 ! ------------------------------------------------------------------
139 
140 !* 1. SECOND SPECTRAL INTERVAL (0.68-4.00 MICRON)
141 ! -------------------------------------------
142 
143 
144 
145 !* 1.1 OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
146 ! -----------------------------------------
147 
148 
149 DO jl = kidia,kfdia
150  zrmum1 = _one_ - prmu(jl)
151  zrayl(jl) = rray(knu,1) + zrmum1 * (rray(knu,2) + zrmum1 &
152  &* (rray(knu,3) + zrmum1 * (rray(knu,4) + zrmum1 &
153  &* (rray(knu,5) + zrmum1 * rray(knu,6) ))))
154 ENDDO
155 
156 
157 ! ------------------------------------------------------------------
158 
159 !* 2. CONTINUUM SCATTERING CALCULATIONS
160 ! ---------------------------------
161 
162 
163 !* 2.1 CLEAR-SKY FRACTION OF THE COLUMN
164 ! --------------------------------
165 
166 
167 CALL swclr ( kidia , kfdia , klon, klev, kaer, knu &
168  &, paer , palbp , pdsig , zrayl, psec &
169  &, zcgaz , zpizaz, zray1 , zray2, zrefz, zrj0 &
170  &, zrk0 , zrmu0 , ztauaz, ztra1, ztra2 )
171 
172 
173 !* 2.2 CLOUDY FRACTION OF THE COLUMN
174 ! -----------------------------
175 
176 
177 CALL swr ( kidia , kfdia, klon, klev , kaer , knu &
178  &, palbd , pcg , pcld , pdsig, pomega, psec , ptau &
179  &, zcgaz , zpizaz, zray1, zray2, zrefz , zrj , zrk, zrmue &
180  &, ztauaz, ztra1 , ztra2 )
181 
182 
183 ! ------------------------------------------------------------------
184 
185 !* 3. SCATTERING CALCULATIONS WITH GREY MOLECULAR ABSORPTION
186 ! ------------------------------------------------------
187 
188 
189 jn = 2
190 
191 DO jabs=1,2
192 
193 
194 !* 3.1 SURFACE CONDITIONS
195 ! ------------------
196 
197 
198  DO jl = kidia,kfdia
199  zrefz(jl,2,1) = palbd(jl,knu)
200  zrefz(jl,1,1) = palbd(jl,knu)
201  ENDDO
202 
203 
204 !* 3.2 INTRODUCING CLOUD EFFECTS
205 ! -------------------------
206 
207 
208  DO jk = 2 , klev+1
209  jkm1 = jk - 1
210  ikl=klev+1-jkm1
211  DO jl = kidia,kfdia
212  zrneb(jl) = pcld(jl,jkm1)
213  IF (jabs == 1.AND. zrneb(jl) > _two_*replog) THEN
214  zwh2o=max(pwv(jl,ikl),replog)
215  zcneb=max(replog,min(zrneb(jl),_one_-replog))
216  zbb=pud(jl,jabs,jkm1)*pqs(jl,ikl)/zwh2o
217  zaa=max((pud(jl,jabs,jkm1)-zcneb*zbb)/(_one_-zcneb),replog)
218  ELSE
219  zaa=pud(jl,jabs,jkm1)
220  zbb=zaa
221  ENDIF
222  zrki = paki(jl,jabs)
223  zs(jl) = exp(min(200._jprb,-zrki * zaa * 1.66_jprb))
224  zg(jl) = exp(min(200._jprb,-zrki * zaa / zrmue(jl,jk)))
225  ztr1(jl) = _zero_
226  zre1(jl) = _zero_
227  ztr2(jl) = _zero_
228  zre2(jl) = _zero_
229 
230  zw(jl)= pomega(jl,knu,jkm1)
231  zto1(jl) = ptau(jl,knu,jkm1) / zw(jl)&
232  &+ ztauaz(jl,jkm1) / zpizaz(jl,jkm1)&
233  &+ zbb * zrki
234 
235  zr21(jl) = ptau(jl,knu,jkm1) + ztauaz(jl,jkm1)
236  zr22(jl) = ptau(jl,knu,jkm1) / zr21(jl)
237  zgg(jl) = zr22(jl) * pcg(jl,knu,jkm1)&
238  &+ (_one_ - zr22(jl)) * zcgaz(jl,jkm1)
239  zw(jl) = zr21(jl) / zto1(jl)
240  zref(jl) = zrefz(jl,1,jkm1)
241  zrmuz(jl) = zrmue(jl,jk)
242  ENDDO
243 
244  CALL swde ( kidia, kfdia, klon &
245  &, zgg , zref , zrmuz, zto1, zw &
246  &, zre1 , zre2 , ztr1 , ztr2 )
247 
248  DO jl = kidia,kfdia
249 
250  zrefz(jl,2,jk) = (_one_-zrneb(jl)) * (zray1(jl,jkm1)&
251  &+ zrefz(jl,2,jkm1) * ztra1(jl,jkm1)&
252  &* ztra2(jl,jkm1) ) * zg(jl) * zs(jl)&
253  &+ zrneb(jl) * zre1(jl)
254 
255  ztr(jl,2,jkm1)=zrneb(jl)*ztr1(jl)&
256  &+ (ztra1(jl,jkm1)) * zg(jl) * (_one_-zrneb(jl))
257 
258  zrefz(jl,1,jk)=(_one_-zrneb(jl))*(zray1(jl,jkm1)&
259  &+zrefz(jl,1,jkm1)*ztra1(jl,jkm1)*ztra2(jl,jkm1)&
260  &/(_one_-zray2(jl,jkm1)*zrefz(jl,1,jkm1)))*zg(jl)*zs(jl)&
261  &+ zrneb(jl) * zre2(jl)
262 
263  ztr(jl,1,jkm1)= zrneb(jl) * ztr2(jl)&
264  &+ (ztra1(jl,jkm1)/(_one_-zray2(jl,jkm1)&
265  &* zrefz(jl,1,jkm1)))&
266  &* zg(jl) * (_one_ -zrneb(jl))
267 
268  ENDDO
269  ENDDO
270 
271 !* 3.3 REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
272 ! -------------------------------------------------
273 
274 
275  DO jref=1,2
276 
277  jn = jn + 1
278 
279  DO jl = kidia,kfdia
280  zrj(jl,jn,klev+1) = _one_
281  zrk(jl,jn,klev+1) = zrefz(jl,jref,klev+1)
282  ENDDO
283 
284  DO jk = 1 , klev
285  jkl = klev+1 - jk
286  jklp1 = jkl + 1
287  DO jl = kidia,kfdia
288  zre11 = zrj(jl,jn,jklp1) * ztr(jl,jref,jkl)
289  zrj(jl,jn,jkl) = zre11
290  zrk(jl,jn,jkl) = zre11 * zrefz(jl,jref,jkl)
291  ENDDO
292  ENDDO
293  ENDDO
294 ENDDO
295 
296 
297 ! ------------------------------------------------------------------
298 
299 !* 4. INVERT GREY AND CONTINUUM FLUXES
300 ! --------------------------------
301 
302 
303 
304 !* 4.1 UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
305 ! ---------------------------------------------
306 
307 
308 DO jk = 1 , klev+1
309  DO jaj = 1 , 5 , 2
310  jajp = jaj + 1
311  DO jl = kidia,kfdia
312  zrj(jl,jaj,jk)= zrj(jl,jaj,jk) - zrj(jl,jajp,jk)
313  zrk(jl,jaj,jk)= zrk(jl,jaj,jk) - zrk(jl,jajp,jk)
314  zrj(jl,jaj,jk)= max( zrj(jl,jaj,jk) , replog )
315  zrk(jl,jaj,jk)= max( zrk(jl,jaj,jk) , replog )
316  ENDDO
317  ENDDO
318 ENDDO
319 
320 DO jk = 1 , klev+1
321  DO jaj = 2 , 6 , 2
322  DO jl = kidia,kfdia
323  zrj(jl,jaj,jk)= max( zrj(jl,jaj,jk) , replog )
324  zrk(jl,jaj,jk)= max( zrk(jl,jaj,jk) , replog )
325  ENDDO
326  ENDDO
327 ENDDO
328 
329 !* 4.2 EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
330 ! ---------------------------------------------
331 
332 
333 DO jk = 1 , klev+1
334  jkki = 1
335  DO jaj = 1 , 2
336  iind2(1)=jaj
337  iind2(2)=jaj
338  DO jn = 1 , 2
339  jn2j = jn + 2 * jaj
340  jkkp4 = jkki + 4
341 
342 !* 4.2.1 EFFECTIVE ABSORBER AMOUNTS
343 ! --------------------------
344 
345 
346  DO jl = kidia,kfdia
347  zw2(jl,1) = log( zrj(jl,jn,jk) / zrj(jl,jn2j,jk))/ paki(jl,jaj)
348  zw2(jl,2) = log( zrk(jl,jn,jk) / zrk(jl,jn2j,jk))/ paki(jl,jaj)
349  ENDDO
350 
351 !* 4.2.2 TRANSMISSION FUNCTION
352 ! ---------------------
353 
354 
355  CALL swtt1 ( kidia,kfdia,klon, knu, 2, iind2 &
356  &, zw2 &
357  &, zr2 )
358 
359  DO jl = kidia,kfdia
360  zrl(jl,jkki) = zr2(jl,1)
361  zruef(jl,jkki) = zw2(jl,1)
362  zrl(jl,jkkp4) = zr2(jl,2)
363  zruef(jl,jkkp4) = zw2(jl,2)
364  ENDDO
365 
366  jkki=jkki+1
367  ENDDO
368  ENDDO
369 
370 !* 4.3 UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
371 ! ------------------------------------------------------
372 
373 
374  DO jl = kidia,kfdia
375  pfdown(jl,jk) = zrj(jl,1,jk) * zrl(jl,1) * zrl(jl,3)&
376  &+ zrj(jl,2,jk) * zrl(jl,2) * zrl(jl,4)
377  pfup(jl,jk) = zrk(jl,1,jk) * zrl(jl,5) * zrl(jl,7)&
378  &+ zrk(jl,2,jk) * zrl(jl,6) * zrl(jl,8)
379  ENDDO
380 ENDDO
381 
382 
383 ! ------------------------------------------------------------------
384 
385 !* 5. MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
386 ! ----------------------------------------
387 
388 
389 
390 !* 5.1 DOWNWARD FLUXES
391 ! ---------------
392 
393 
394 jaj = 2
395 iind3(1)=1
396 iind3(2)=2
397 iind3(3)=3
398 
399 DO jl = kidia,kfdia
400  zw3(jl,1)=_zero_
401  zw3(jl,2)=_zero_
402  zw3(jl,3)=_zero_
403  zw4(jl) =_zero_
404  zw5(jl) =_zero_
405  zr4(jl) =_one_
406  zfd(jl,klev+1)= zrj0(jl,jaj,klev+1)
407 ENDDO
408 DO jk = 1 , klev
409  ikl = klev+1-jk
410  DO jl = kidia,kfdia
411  zw3(jl,1)=zw3(jl,1)+pud(jl,1,ikl)/zrmu0(jl,ikl)
412  zw3(jl,2)=zw3(jl,2)+pud(jl,2,ikl)/zrmu0(jl,ikl)
413  zw3(jl,3)=zw3(jl,3)+poz(jl, ikl)/zrmu0(jl,ikl)
414  zw4(jl) =zw4(jl) +pud(jl,4,ikl)/zrmu0(jl,ikl)
415  zw5(jl) =zw5(jl) +pud(jl,5,ikl)/zrmu0(jl,ikl)
416  ENDDO
417 
418  CALL swtt1 ( kidia,kfdia,klon, knu, 3, iind3 &
419  &, zw3 &
420  &, zr3 )
421 
422  DO jl = kidia,kfdia
423 ! ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
424  zfd(jl,ikl) = zr3(jl,1)*zr3(jl,2)*zr3(jl,3)*zr4(jl)* zrj0(jl,jaj,ikl)
425  ENDDO
426 ENDDO
427 
428 
429 !* 5.2 UPWARD FLUXES
430 ! -------------
431 
432 
433 DO jl = kidia,kfdia
434  zfu(jl,1) = zfd(jl,1)*palbp(jl,knu)
435 ENDDO
436 
437 DO jk = 2 , klev+1
438  ikm1=jk-1
439  DO jl = kidia,kfdia
440  zw3(jl,1)=zw3(jl,1)+pud(jl,1,ikm1)*1.66_jprb
441  zw3(jl,2)=zw3(jl,2)+pud(jl,2,ikm1)*1.66_jprb
442  zw3(jl,3)=zw3(jl,3)+poz(jl, ikm1)*1.66_jprb
443  zw4(jl) =zw4(jl) +pud(jl,4,ikm1)*1.66_jprb
444  zw5(jl) =zw5(jl) +pud(jl,5,ikm1)*1.66_jprb
445  ENDDO
446 
447  CALL swtt1 ( kidia,kfdia,klon, knu, 3, iind3 &
448  &, zw3 &
449  &, zr3 )
450 
451  DO jl = kidia,kfdia
452 ! ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
453  zfu(jl,jk) = zr3(jl,1)*zr3(jl,2)*zr3(jl,3)*zr4(jl)* zrk0(jl,jaj,jk)
454  ENDDO
455 ENDDO
456 
457 
458 ! ------------------------------------------------------------------
459 
460 !* 6. INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
461 ! --------------------------------------------------
462 
463 iabs=3
464 
465 !* 6.1 DOWNWARD FLUXES
466 ! ---------------
467 
468 DO jl = kidia,kfdia
469  zw1(jl)=_zero_
470  zw4(jl)=_zero_
471  zw5(jl)=_zero_
472  zr1(jl)=_zero_
473  pfdown(jl,klev+1) = ((_one_-pclear(jl))*pfdown(jl,klev+1)&
474  &+ pclear(jl) * zfd(jl,klev+1)) * rsun(knu)
475  pfdownc(jl,klev+1) = zfd(jl,klev+1) * rsun(knu)
476 ENDDO
477 
478 DO jk = 1 , klev
479  ikl=klev+1-jk
480  DO jl = kidia,kfdia
481  zw1(jl) = zw1(jl)+poz(jl, ikl)/zrmue(jl,ikl)
482  zw4(jl) = zw4(jl)+pud(jl,4,ikl)/zrmue(jl,ikl)
483  zw5(jl) = zw5(jl)+pud(jl,5,ikl)/zrmue(jl,ikl)
484 ! ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
485  ENDDO
486 
487  CALL swtt ( kidia,kfdia,klon, knu, iabs, zw1, zr1 )
488 
489  DO jl = kidia,kfdia
490  pfdown(jl,ikl) = ((_one_-pclear(jl))*zr1(jl)*zr4(jl)*pfdown(jl,&
491  &ikl)&
492  &+pclear(jl)*zfd(jl,ikl)) * rsun(knu)
493  pfdownc(jl,ikl) = zfd(jl,ikl) * rsun(knu)
494  ENDDO
495 ENDDO
496 
497 
498 !* 6.2 UPWARD FLUXES
499 ! -------------
500 
501 DO jl = kidia,kfdia
502  pfup(jl,1) = ((_one_-pclear(jl))*zr1(jl)*zr4(jl) * pfup(jl,1)&
503  &+pclear(jl)*zfu(jl,1)) * rsun(knu)
504  pfupc(jl,1) = zfu(jl,1) * rsun(knu)
505 ENDDO
506 
507 DO jk = 2 , klev+1
508  ikm1=jk-1
509  DO jl = kidia,kfdia
510  zw1(jl) = zw1(jl)+poz(jl ,ikm1)*1.66_jprb
511  zw4(jl) = zw4(jl)+pud(jl,4,ikm1)*1.66_jprb
512  zw5(jl) = zw5(jl)+pud(jl,5,ikm1)*1.66_jprb
513 ! ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
514  ENDDO
515 
516  CALL swtt ( kidia,kfdia,klon, knu, iabs, zw1, zr1 )
517 
518  DO jl = kidia,kfdia
519  pfup(jl,jk) = ((_one_-pclear(jl))*zr1(jl)*zr4(jl) * pfup(jl,jk)&
520  &+pclear(jl)*zfu(jl,jk)) * rsun(knu)
521  pfupc(jl,jk) = zfu(jl,jk) * rsun(knu)
522  ENDDO
523 ENDDO
524 
525 ! ------------------------------------------------------------------
526 
527 RETURN
528 END SUBROUTINE sw2s
swclr
subroutine swclr(KIDIA, KFDIA, KLON, KLEV, KAER, KNU, PAER, PALBP, PDSIG, PRAYL, PSEC, PCGAZ, PPIZAZ, PRAY1, PRAY2, PREFZ, PRJ, PRK, PRMU0, PTAUAZ, PTRA1, PTRA2, PTRCLR,
Definition: swclr.F90:7
yoesw
Definition: yoesw.F90:1
dimphy::kidia
integer, save kidia
Definition: dimphy.F90:6
dimphy::klon
integer, save klon
Definition: dimphy.F90:3
yoesw::rsun
real(kind=jprb), dimension(:), allocatable rsun
Definition: yoesw.F90:16
sw2s
subroutine sw2s(KIDIA, KFDIA, KLON, KLEV, KAER, KNU, PAER, PAKI, PALBD, PALBP, PCG, PCLD, PCLEAR, PCLDSW, PDSIG, POMEGA, POZ, PRMU, PSEC, PTAU, PUD, PWV, PQS, PFDOWN, PFUP, PFDOWNC, PFUPC)
Definition: sw2s.F90:6
dimphy::klev
integer, save klev
Definition: dimphy.F90:7
dimphy::kfdia
integer, save kfdia
Definition: dimphy.F90:5
swr
subroutine swr(KIDIA, KFDIA, KLON, KLEV, KNU, PALBD, PCG, PCLD, POMEGA, PSEC, PTAU, PCGAZ, PPIZAZ, PRAY1, PRAY2, PREFZ, PRJ, PRK, PRMUE, PTAUAZ, PTRA1, PTRA2, PTRCLD)
Definition: swr.F90:7
yoerdu::replog
real(kind=jprb) replog
Definition: yoerdu.F90:19
swde
subroutine swde(KIDIA, KFDIA, KLON, PGG, PREF, PRMUZ, PTO1, PW, PRE1, PRE2, PTR1, PTR2)
Definition: swde.F90:7
swtt1
subroutine swtt1(KIDIA, KFDIA, KLON, KNU, KABS, KIND, PU, PTR)
Definition: swtt1.F90:2
yoesw::rray
real(kind=jprb), dimension(6, 6) rray
Definition: yoesw.F90:15
paer
INTERFACE SUBROUTINE RRTM_ECRT_140GP && paer
Definition: rrtm_ecrt_140gp.intfb.h:3
swtt
subroutine swtt(KIDIA, KFDIA, KLON, KNU, KA, PU, PTR)
Definition: swtt.F90:2
yoerdu
Definition: yoerdu.F90:1