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 |