22 |
! Host associated variables appearing and modified in this procedure : |
! Host associated variables appearing and modified in this procedure : |
23 |
! iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn, lon_ini, lat_ini, levdyn_ini |
! iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn, lon_ini, lat_ini, levdyn_ini |
24 |
|
|
25 |
USE ioipsl, only: flininfo, flinopen_nozoom, flinget |
USE flincom, only: flininfo, flinopen_nozoom, flinget |
26 |
use comgeom, only: aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
27 |
use conf_dat2d_m, only: conf_dat2d |
use conf_dat2d_m, only: conf_dat2d |
28 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
141 |
! This procedure gets a 3D variable from a file and does the |
! This procedure gets a 3D variable from a file and does the |
142 |
! interpolations needed. |
! interpolations needed. |
143 |
|
|
144 |
USE ioipsl, only: flinget |
USE flincom, only: flinget |
145 |
use numer_rec, only: assert_eq, spline, splint |
use numer_rec, only: assert_eq, spline, splint |
146 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
147 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
196 |
ay(:) = var_tmp3d(ii, ij, llm_dyn:1:-1) |
ay(:) = var_tmp3d(ii, ij, llm_dyn:1:-1) |
197 |
yder(:) = SPLINE(ax, ay) |
yder(:) = SPLINE(ax, ay) |
198 |
do il=1, lml |
do il=1, lml |
199 |
var3d(ii, ij, il) & |
var3d(ii, ij, il) = SPLINT(ax, ay, yder, pls_in(ii, ij, il)) |
|
= SPLINT(ax, ay, yder, pls_in(ii, ij, il)) |
|
200 |
END do |
END do |
201 |
ENDDO |
ENDDO |
202 |
ENDDO |
ENDDO |