/[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

revision 166 by guez, Wed Jul 29 14:32:55 2015 UTC revision 191 by guez, Mon May 9 19:56:28 2016 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 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
# Line 32  program test_inter_barxy Line 33  program test_inter_barxy
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
Legend:
Removed from v.166  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21