/[lmdze]/trunk/libf/bibio/regr_pr.f90
ViewVC logotype

Diff of /trunk/libf/bibio/regr_pr.f90

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

revision 11 by guez, Fri Apr 18 14:45:53 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 60  contains Line 60  contains
60         ! Average on pressure at each longitude:         ! Average on pressure at each longitude:
61         do i = 1, iim         do i = 1, iim
62            regr_pr_av(i, j, llm:1:-1) &            regr_pr_av(i, j, llm:1:-1) &
63                 = regr1_step_av(v(j, 1:), press_in, p3d(i, j, llm+1:1:-1))                 = regr1_step_av(v(j, :), press_in, p3d(i, j, llm+1:1:-1))
64            ! (invert order of indices because "p3d" is decreasing)            ! (invert order of indices because "p3d" is decreasing)
65         end do         end do
66      end do      end do
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21