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 |
|
use comconst, only: pi |
|
30 |
use comgeom, only: rlonu, rlatv |
use comgeom, only: rlonu, rlatv |
31 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
32 |
use gr_int_dyn_m, only: gr_int_dyn |
use gr_int_dyn_m, only: gr_int_dyn |
33 |
use start_init_orog_m, only: phis |
use start_init_orog_m, only: phis |
34 |
use start_init_phys_m, only: start_init_phys |
use start_init_phys_m, only: start_init_phys |
35 |
use nr_util, only: assert |
use nr_util, only: assert, pi |
36 |
|
|
37 |
REAL, intent(out):: tsol_2d(:, :) |
REAL, intent(out):: tsol_2d(:, :) |
38 |
REAL, intent(out):: psol(:, :) ! surface pressure, in Pa |
REAL, intent(out):: psol(:, :) ! surface pressure, in Pa |