21 |
! Keating, G. M. and D. F. Young, 1985: Interim reference models for the |
! Keating, G. M. and D. F. Young, 1985: Interim reference models for the |
22 |
! middle atmosphere, Handbook for MAP, vol. 16, 205-229. |
! middle atmosphere, Handbook for MAP, vol. 16, 205-229. |
23 |
|
|
|
use dimensions, only: llm |
|
24 |
use nr_util, only: assert, pi |
use nr_util, only: assert, pi |
25 |
|
|
26 |
|
use dimensions, only: llm |
27 |
use phyetat0_m, only: rlat |
use phyetat0_m, only: rlat |
28 |
|
|
29 |
REAL, INTENT (IN) :: rjour |
REAL, INTENT (IN) :: rjour |