5 |
|
|
6 |
INTEGER iml_dyn, jml_dyn, llm_dyn |
INTEGER iml_dyn, jml_dyn, llm_dyn |
7 |
|
|
8 |
REAL, pointer:: lon_ini(:), lat_ini(:) |
REAL, allocatable:: lon_ini(:), lat_ini(:) |
9 |
! longitude and latitude from the input file, converted to rad |
! longitude and latitude from the input file, converted to rad |
10 |
|
|
11 |
real, pointer:: levdyn_ini(:) |
real, allocatable:: levdyn_ini(:) |
12 |
|
|
13 |
CONTAINS |
CONTAINS |
14 |
|
|
15 |
SUBROUTINE start_init_dyn(tsol_2d, phis, ps) |
SUBROUTINE start_init_dyn(tsol_2d, phis, ps) |
16 |
|
|
17 |
use comgeom, only: rlonu, rlatv, aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
18 |
use conf_dat2d_m, only: conf_dat2d |
use conf_dat2d_m, only: conf_dat2d |
19 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
20 |
|
use dynetat0_m, only: rlonu, rlatv |
21 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
22 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
23 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |