10 |
USE dimens_m |
USE dimens_m |
11 |
USE dimphy |
USE dimphy |
12 |
use lwvd_m, only: lwvd |
use lwvd_m, only: lwvd |
13 |
|
use lwvn_m, only: lwvn |
14 |
USE suphec_m |
USE suphec_m |
15 |
USE raddim |
USE raddim |
16 |
USE raddimlw |
USE raddimlw |
95 |
|
|
96 |
! * CONTRIBUTION FROM ADJACENT LAYERS |
! * CONTRIBUTION FROM ADJACENT LAYERS |
97 |
|
|
98 |
CALL lwvn(kuaer, ktraer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, & |
CALL lwvn(kuaer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, zdbdt) |
|
zdbdt) |
|
99 |
! * CONTRIBUTION FROM DISTANT LAYERS |
! * CONTRIBUTION FROM DISTANT LAYERS |
100 |
|
|
101 |
CALL lwvd(ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, zdisu) |
CALL lwvd(ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, zdisu) |