| 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 |
Parent Directory
| 
Revision Log
| 
Patch