1 |
program test_inter_barxy |
program test_inter_barxy |
2 |
|
|
3 |
use comconst, only: dtvr, daysec, iniconst |
use comconst, only: 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 |
7 |
use dimens_m, only: iim, jjm |
use dimensions, only: iim, jjm |
8 |
USE dynetat0_m, only: rlonu, rlatv |
USE dynetat0_m, only: rlonu, rlatv, fyhyp, fxhyp |
9 |
use disvert_m, only: pa |
use dynetat0_chosen_m, only: read_serre |
10 |
use inter_barxy_m, only: inter_barxy |
use inter_barxy_m, only: inter_barxy |
11 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
|
use read_serre_m, only: read_serre |
|
12 |
|
|
13 |
implicit none |
implicit none |
14 |
|
|
32 |
allocate(var_ana3d(iml_dyn, jml_dyn)) |
allocate(var_ana3d(iml_dyn, jml_dyn)) |
33 |
|
|
34 |
CALL conf_gcm |
CALL conf_gcm |
35 |
dtvr = daysec / real(day_step) |
call read_comdissnew |
|
print *, 'dtvr = ', dtvr |
|
|
pa = 5e4 |
|
36 |
CALL iniconst |
CALL iniconst |
37 |
call read_serre |
call read_serre |
38 |
|
CALL fyhyp |
39 |
|
CALL fxhyp |
40 |
CALL inigeom |
CALL inigeom |
41 |
|
|
42 |
lon_ini = - pi + 2 * pi / iml_dyn * (/(i, i = 0, iml_dyn - 1)/) |
lon_ini = - pi + 2 * pi / iml_dyn * (/(i, i = 0, iml_dyn - 1)/) |