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

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

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

revision 14 by guez, Fri Jul 25 19:59:34 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 6  module grid_atob Line 6  module grid_atob
6    
7  contains  contains
8    
9    real function grille_m(xdata, ydata, entree, x, y)    function grille_m(xdata, ydata, entree, x, y)
10    
11      !=======================================================================      !=======================================================================
12      ! Z. X. Li (le 1 avril 1994) (voir aussi A. Harzallah et L. Fairhead)      ! Z. X. Li (le 1 avril 1994) (voir aussi A. Harzallah et L. Fairhead)
# Line 43  contains Line 43  contains
43      REAL, intent(in):: entree(:, :)      REAL, intent(in):: entree(:, :)
44      REAL, intent(in):: x(:), y(:)      REAL, intent(in):: x(:), y(:)
45    
46      dimension grille_m(size(x), size(y))      real grille_m(size(x), size(y))
47    
48      ! Variables local to the procedure:      ! Variables local to the procedure:
49      INTEGER imdep, jmdep, imar, jmar      INTEGER imdep, jmdep, imar, jmar
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21