22 |
! We assume that, in the input file, the pressure levels are in |
! We assume that, in the input file, the pressure levels are in |
23 |
! hPa and strictly increasing. |
! hPa and strictly increasing. |
24 |
|
|
25 |
use dimens_m, only: iim, jjm, llm |
use dimensions, only: iim, jjm, llm |
26 |
use dynetat0_m, only: day_ref |
use dynetat0_m, only: day_ref |
27 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
28 |
use netcdf, only: nf90_nowrite, nf90_get_var |
use netcdf, only: nf90_nowrite, nf90_get_var |
43 |
|
|
44 |
! Variables local to the procedure: |
! Variables local to the procedure: |
45 |
|
|
46 |
real, pointer:: plev(:) |
real, allocatable:: plev(:) |
47 |
! (pressure levels of Mobidic data, in Pa, in strictly increasing order) |
! (pressure levels of Mobidic data, in Pa, in strictly increasing order) |
48 |
|
|
49 |
real, allocatable:: press_in_edg(:) |
real, allocatable:: press_in_edg(:) |
84 |
! (infinity, but any value guaranteed to be greater than the |
! (infinity, but any value guaranteed to be greater than the |
85 |
! surface pressure would do) |
! surface pressure would do) |
86 |
|
|
|
deallocate(plev) ! pointer |
|
|
|
|
87 |
call nf95_inq_varid(ncid, "r_Mob", varid) |
call nf95_inq_varid(ncid, "r_Mob", varid) |
88 |
allocate(r_mob(jjm + 1, n_plev)) |
allocate(r_mob(jjm + 1, n_plev)) |
89 |
|
|