9 |
|
|
10 |
SUBROUTINE start_init_phys(tsol_2d, qsol_2d) |
SUBROUTINE start_init_phys(tsol_2d, qsol_2d) |
11 |
|
|
|
use comgeom, only: rlonu, rlatv |
|
12 |
use conf_dat2d_m, only: conf_dat2d |
use conf_dat2d_m, only: conf_dat2d |
13 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
14 |
|
use dynetat0_m, only: rlonu, rlatv |
15 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
16 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
17 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |