9 |
! This procedure gets a 3D variable from a file and interpolates it. |
! This procedure gets a 3D variable from a file and interpolates it. |
10 |
|
|
11 |
use nr_util, only: assert_eq |
use nr_util, only: assert_eq |
12 |
use numer_rec, only: spline, splint |
use numer_rec_95, only: spline, splint |
13 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
14 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
15 |
use conf_dat3d_m, only: conf_dat3d |
use conf_dat3d_m, only: conf_dat3d |