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 flincom, only: flininfo, flinopen_nozoom, flinget |
USE flincom, only: flininfo, flinopen_nozoom |
26 |
|
use flinget_m, only: flinget |
27 |
use comgeom, only: aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
28 |
use conf_dat2d_m, only: conf_dat2d |
use conf_dat2d_m, only: conf_dat2d |
29 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
72 |
ALLOCATE(lon_dyn(iml_dyn, jml_dyn)) |
ALLOCATE(lon_dyn(iml_dyn, jml_dyn)) |
73 |
ALLOCATE(levdyn_ini(llm_dyn)) |
ALLOCATE(levdyn_ini(llm_dyn)) |
74 |
|
|
75 |
CALL flinopen_nozoom(physfname, iml_dyn, jml_dyn, llm_dyn, & |
CALL flinopen_nozoom(iml_dyn, jml_dyn, llm_dyn, & |
76 |
lon_dyn, lat_dyn, levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn) |
lon_dyn, lat_dyn, levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn) |
77 |
|
|
78 |
ALLOCATE(var_ana(iml_dyn, jml_dyn)) |
ALLOCATE(var_ana(iml_dyn, jml_dyn)) |
142 |
! This procedure gets a 3D variable from a file and does the |
! This procedure gets a 3D variable from a file and does the |
143 |
! interpolations needed. |
! interpolations needed. |
144 |
|
|
145 |
USE flincom, only: flinget |
use flinget_m, only: flinget |
146 |
use numer_rec, only: assert_eq, spline, splint |
use numer_rec, only: assert_eq, spline, splint |
147 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
148 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |