/[lmdze]/trunk/libf/test_inter_barxy.f90
ViewVC logotype

Diff of /trunk/libf/test_inter_barxy.f90

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

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 1  Line 1 
1  program test_inter_barxy  program test_inter_barxy
2    
3    use inter_barxy_m, only: inter_barxy    use comconst, only: dtvr, daysec
   use comconst, only: pi, initialize, dtvr, daysec  
4    use comgeom, only: rlonu, rlatv    use comgeom, only: rlonu, rlatv
   use dimens_m, only: iim, jjm  
5    use conf_gcm_m, only: conf_gcm, day_step    use conf_gcm_m, only: conf_gcm, day_step
6    use comvert, only: pa    use comvert, only: pa
7      use dimens_m, only: iim, jjm
8      use inter_barxy_m, only: inter_barxy
9    use inigeom_m, only: inigeom    use inigeom_m, only: inigeom
10      USE nr_util, ONLY : pi
11    
12    implicit none    implicit none
13    
# Line 17  program test_inter_barxy Line 18  program test_inter_barxy
18    real, allocatable:: var_ana3d(:, :)    real, allocatable:: var_ana3d(:, :)
19    REAL var_tmp2d(iim, jjm + 1)    REAL var_tmp2d(iim, jjm + 1)
20    
21    LOGICAL:: interbar = .true. ! barycentric interpolation    namelist /main/iml_dyn, jml_dyn
   namelist /main/iml_dyn, jml_dyn, interbar  
22    
23    !------------------------    !------------------------
24    
# Line 30  program test_inter_barxy Line 30  program test_inter_barxy
30    allocate(lat_rad(jml_dyn-1), lat_ini(jml_dyn))    allocate(lat_rad(jml_dyn-1), lat_ini(jml_dyn))
31    allocate(var_ana3d(iml_dyn, jml_dyn))    allocate(var_ana3d(iml_dyn, jml_dyn))
32    
   call initialize  
33    CALL conf_gcm    CALL conf_gcm
34    dtvr = daysec / real(day_step)    dtvr = daysec / real(day_step)
35    print *, 'dtvr = ', dtvr    print *, 'dtvr = ', dtvr
Legend:
Removed from v.25  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21