| 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 |
Parent Directory
| 
Revision Log
| 
Patch