/[lmdze]/trunk/libf/dyn3d/inter_barxy.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/inter_barxy.f90

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

revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 2  module inter_barxy_m Line 2  module inter_barxy_m
2    
3    ! From inter_barxy.F, version 1.1.1.1 2004/05/19 12:53:07    ! From inter_barxy.F, version 1.1.1.1 2004/05/19 12:53:07
4    
   ! This file is clean: there is neither C preprocessor directive, nor  
   ! include line.  
   
5    implicit none    implicit none
6    
7    private    private
# Line 17  contains Line 14  contains
14      ! Author: P. Le Van      ! Author: P. Le Van
15    
16      use numer_rec, only: assert_eq, assert      use numer_rec, only: assert_eq, assert
   
17      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
18      use comgeom, only: aire_2d, apoln, apols      use comgeom, only: aire_2d, apoln, apols
19    
# Line 349  contains Line 345  contains
345            dym        = 0.            dym        = 0.
346            jmod       = jmod + 1            jmod       = jmod + 1
347         ELSE         ELSE
348            ! yjmod(jmod) == yjdat(jdat)            ! {yjmod(jmod) == yjdat(jdat)}
349            dy         = yjmod(jmod) - y0            dy         = yjmod(jmod) - y0
350            dym        = dym + dy            dym        = dym + dy
351            inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym            inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym
Legend:
Removed from v.13  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21