1 |
program test_inter_barxy |
program test_inter_barxy |
2 |
|
|
3 |
use comconst, only: dtvr, daysec, iniconst |
use comconst, only: dtvr, daysec, iniconst |
4 |
|
use comdissnew, only: read_comdissnew |
5 |
use comgeom, only: inigeom |
use comgeom, only: inigeom |
6 |
use conf_gcm_m, only: conf_gcm, day_step |
use conf_gcm_m, only: conf_gcm, day_step |
7 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
33 |
allocate(var_ana3d(iml_dyn, jml_dyn)) |
allocate(var_ana3d(iml_dyn, jml_dyn)) |
34 |
|
|
35 |
CALL conf_gcm |
CALL conf_gcm |
36 |
|
call read_comdissnew |
37 |
dtvr = daysec / real(day_step) |
dtvr = daysec / real(day_step) |
38 |
print *, 'dtvr = ', dtvr |
print *, 'dtvr = ', dtvr |
39 |
pa = 5e4 |
pa = 5e4 |