19 |
nf95_get_coord |
nf95_get_coord |
20 |
use netcdf, only: nf90_nowrite, nf90_get_var |
use netcdf, only: nf90_nowrite, nf90_get_var |
21 |
use regr_pr, only: regr_pr_av |
use regr_pr, only: regr_pr_av |
22 |
use nrutil, only: assert |
use numer_rec, only: assert |
23 |
|
|
24 |
real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm) |
real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm) |
25 |
! (ozone mole fraction from Mobidic adapted to the LMDZ grid) |
! (ozone mole fraction from Mobidic adapted to the LMDZ grid) |