7 |
subroutine regr_pr_av_coefoz(ncid, name, julien, press_in_edg, v3) |
subroutine regr_pr_av_coefoz(ncid, name, julien, press_in_edg, v3) |
8 |
|
|
9 |
! "regr_pr_av_coefoz" stands for "regrid pressure averaging |
! "regr_pr_av_coefoz" stands for "regrid pressure averaging |
10 |
! coefficients ozone". |
! coefficient ozone". |
11 |
! This procedure reads a single Mobidic ozone coefficient from |
! This procedure reads a single Mobidic ozone coefficient from |
12 |
!"coefoz_LMDZ.nc", at the current day, regrids this parameter in |
! "coefoz_LMDZ.nc", at the current day, regrids this parameter in |
13 |
! pressure to the LMDZ vertical grid and packs it to the LMDZ |
! pressure to the LMDZ vertical grid and packs it to the LMDZ |
14 |
! horizontal "physics" grid. |
! horizontal "physics" grid. |
15 |
! Regridding is by averaging a step function. |
! Regridding in pressure is done by averaging a step function. |
16 |
|
|
17 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
18 |
use dimphy, only: klon |
use dimphy, only: klon |