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