/[lmdze]/trunk/Sources/test_inter_barxy.f
ViewVC logotype

Diff of /trunk/Sources/test_inter_barxy.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 139 by guez, Tue May 26 17:46:03 2015 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: dtvr, daysec, iniconst
4    use comgeom, only: rlonu, rlatv, inigeom    use comgeom, only: inigeom
5    use conf_gcm_m, only: conf_gcm, day_step    use conf_gcm_m, only: conf_gcm, day_step
6    use dimens_m, only: iim, jjm    use dimens_m, only: iim, jjm
7      USE dynetat0_m, only: rlonu, rlatv
8    use disvert_m, only: pa    use disvert_m, only: pa
9    use inter_barxy_m, only: inter_barxy    use inter_barxy_m, only: inter_barxy
10    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
11      use read_serre_m, only: read_serre
12    
13    implicit none    implicit none
14    
# Line 34  program test_inter_barxy Line 36  program test_inter_barxy
36    print *, 'dtvr = ', dtvr    print *, 'dtvr = ', dtvr
37    pa = 5e4    pa = 5e4
38    CALL iniconst    CALL iniconst
39      call read_serre
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.139
  ViewVC Help
Powered by ViewVC 1.1.21