142 |
! interpolations needed. |
! interpolations needed. |
143 |
|
|
144 |
USE ioipsl, only: flinget |
USE ioipsl, only: flinget |
145 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq, spline, splint |
|
|
|
146 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
|
use interpolation, only: spline, splint |
|
147 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
148 |
use conf_dat3d_m, only: conf_dat3d |
use conf_dat3d_m, only: conf_dat3d |
149 |
|
|
172 |
lml = size(pls_in, 3) |
lml = size(pls_in, 3) |
173 |
|
|
174 |
print *, "iml = ", iml, ", jml = ", jml |
print *, "iml = ", iml, ", jml = ", jml |
|
print *, 'Going into flinget to extract the 3D field.' |
|
175 |
print *, "fid_dyn = ", fid_dyn, ", varname = ", varname |
print *, "fid_dyn = ", fid_dyn, ", varname = ", varname |
176 |
print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, & |
print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, & |
177 |
", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn |
", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn |
178 |
|
print *, 'Going into flinget to extract the 3D field.' |
179 |
CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, & |
CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, & |
180 |
var_ana3d) |
var_ana3d) |
181 |
|
|