23 |
|
|
24 |
use dimens_m, only: llm |
use dimens_m, only: llm |
25 |
USE dimphy, ONLY : klon |
USE dimphy, ONLY : klon |
26 |
use numer_rec, only: assert, pi |
use nr_util, only: assert, pi |
27 |
use phyetat0_m, only: rlat |
use phyetat0_m, only: rlat |
28 |
|
|
29 |
REAL, INTENT (IN) :: rjour |
REAL, INTENT (IN) :: rjour |
33 |
! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is |
! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is |
34 |
! between interface "k" and interface "k + 1", in kDU. |
! between interface "k" and interface "k + 1", in kDU. |
35 |
|
|
36 |
! Variables local to the procedure: |
! Local: |
37 |
|
|
38 |
REAL tozon, pl |
REAL tozon, pl |
39 |
INTEGER i, k |
INTEGER i, k |