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) |
45 |
|
|
46 |
!------------------------------------------------------------ |
!------------------------------------------------------------ |
47 |
|
|
48 |
|
print *, "Call sequence information: regr_pr_o3" |
49 |
call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3") |
call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3") |
50 |
|
|
51 |
call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) |
call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) |