1 |
module regr_pr_comb_coefoz_m |
module regr_pr_comb_coefoz_m |
2 |
|
|
|
! This module is clean: no C preprocessor directive, no include line. |
|
|
|
|
3 |
use dimens_m, only: llm |
use dimens_m, only: llm |
4 |
use dimphy, only: klon |
use dimphy, only: klon |
5 |
|
|
46 |
! -- packs the coefficients to the "physics" horizontal grid ; |
! -- packs the coefficients to the "physics" horizontal grid ; |
47 |
! -- combines the eight coefficients to define the five module variables. |
! -- combines the eight coefficients to define the five module variables. |
48 |
|
|
49 |
! 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 |
|
50 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |
51 |
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 |
52 |
use phyetat0_m, only: rlat |
use phyetat0_m, only: rlat |
54 |
integer, intent(in):: julien ! jour julien, 1 <= julien <= 360 |
integer, intent(in):: julien ! jour julien, 1 <= julien <= 360 |
55 |
|
|
56 |
! Variables local to the procedure: |
! Variables local to the procedure: |
57 |
|
|
58 |
integer ncid ! for NetCDF |
integer ncid ! for NetCDF |
59 |
|
|
60 |
real coefoz(klon, llm) |
real coefoz(klon, llm) |