| 48 |
! -- packs the coefficients to the "physics" horizontal grid ; |
! -- packs the coefficients to the "physics" horizontal grid ; |
| 49 |
! -- combines the eight coefficients to define the five module variables. |
! -- combines the eight coefficients to define the five module variables. |
| 50 |
|
|
| 51 |
! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa |
use netcdf95, only: nf95_open, nf95_close |
|
! and strictly increasing. |
|
|
|
|
|
use netcdf95, only: nf95_open, nf95_close, nf95_get_coord |
|
| 52 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |
| 53 |
use regr_pr_coefoz, only: regr_pr_av_coefoz, regr_pr_int_coefoz |
use regr_pr_coefoz, only: regr_pr_av_coefoz, regr_pr_int_coefoz |
| 54 |
use phyetat0_m, only: rlat |
use phyetat0_m, only: rlat |
| 56 |
integer, intent(in):: julien ! jour julien, 1 <= julien <= 360 |
integer, intent(in):: julien ! jour julien, 1 <= julien <= 360 |
| 57 |
|
|
| 58 |
! Variables local to the procedure: |
! Variables local to the procedure: |
| 59 |
|
|
| 60 |
integer ncid ! for NetCDF |
integer ncid ! for NetCDF |
| 61 |
|
|
| 62 |
real coefoz(klon, llm) |
real coefoz(klon, llm) |
Parent Directory
| 
Revision Log
| 
Patch