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

Diff of /trunk/libf/regr1_step_av.f90

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

revision 12 by guez, Mon Mar 31 13:58:05 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 25  contains Line 25  contains
25    
26      ! "vs" has rank 1.      ! "vs" has rank 1.
27    
28      use nrutil, only: assert_eq, assert      use numer_rec, only: assert_eq, assert, locate
     use interpolation, only: locate  
29    
30      real, intent(in):: vs(:) ! values of steps on the source grid      real, intent(in):: vs(:) ! values of steps on the source grid
31      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
# Line 83  contains Line 82  contains
82    
83      ! "vs" has rank 2.      ! "vs" has rank 2.
84    
85      use nrutil, only: assert_eq, assert      use numer_rec, only: assert_eq, assert, locate
     use interpolation, only: locate  
86    
87      real, intent(in):: vs(:, :) ! values of steps on the source grid      real, intent(in):: vs(:, :) ! values of steps on the source grid
88      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
# Line 142  contains Line 140  contains
140    
141      ! "vs" has rank 3.      ! "vs" has rank 3.
142    
143      use nrutil, only: assert_eq, assert      use numer_rec, only: assert_eq, assert, locate
     use interpolation, only: locate  
144    
145      real, intent(in):: vs(:, :, :) ! values of steps on the source grid      real, intent(in):: vs(:, :, :) ! values of steps on the source grid
146      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)      ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21