11 |
|
|
12 |
SUBROUTINE start_init_phys(tsol_2d) |
SUBROUTINE start_init_phys(tsol_2d) |
13 |
|
|
14 |
USE flincom, only: flininfo, flinopen_nozoom, flinget, flinclo |
USE flincom, only: flininfo, flinopen_nozoom, flinclo |
15 |
|
use flinget_m, only: flinget |
16 |
use conf_dat2d_m, only: conf_dat2d |
use conf_dat2d_m, only: conf_dat2d |
17 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
18 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
51 |
ALLOCATE(lon_phys(iml_phys, jml_phys)) |
ALLOCATE(lon_phys(iml_phys, jml_phys)) |
52 |
ALLOCATE(levphys_ini(llm_tmp)) |
ALLOCATE(levphys_ini(llm_tmp)) |
53 |
|
|
54 |
CALL flinopen_nozoom(physfname, iml_phys, jml_phys, & |
CALL flinopen_nozoom(iml_phys, jml_phys, & |
55 |
llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp, & |
llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp, & |
56 |
itau, date, dt, fid_phys) |
itau, date, dt, fid_phys) |
57 |
|
|