/[lmdze]/trunk/dyn3d/Inter_barxy/test_inter_barxy.f
ViewVC logotype

Diff of /trunk/dyn3d/Inter_barxy/test_inter_barxy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/Sources/test_inter_barxy.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/Inter_barxy/test_inter_barxy.f revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 1  Line 1 
1  program test_inter_barxy  program test_inter_barxy
2    
3    use comconst, only: dtvr, daysec, iniconst    use comconst, only: iniconst
4    use comgeom, only: rlonu, rlatv, inigeom    use comdissnew, only: read_comdissnew
5    use conf_gcm_m, only: conf_gcm, day_step    use comgeom, only: inigeom
6    use dimens_m, only: iim, jjm    use conf_gcm_m, only: conf_gcm
7    use disvert_m, only: pa    use dimensions, only: iim, jjm
8      USE dynetat0_m, only: rlonu, rlatv, fyhyp, fxhyp
9      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
12    
# Line 30  program test_inter_barxy Line 32  program test_inter_barxy
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
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)/)

Legend:
Removed from v.134  
changed lines
  Added in v.313

  ViewVC Help
Powered by ViewVC 1.1.21