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 |
|
|