/[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 3 by guez, Wed Feb 27 13:16:39 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 37  contains Line 37  contains
37      !        grille_m: champ de sortie deja transforme      !        grille_m: champ de sortie deja transforme
38      !=======================================================================      !=======================================================================
39    
40      use nrutil, only: assert_eq      use numer_rec, only: assert_eq
41    
42      REAL, intent(in):: xdata(:),ydata(:)      REAL, intent(in):: xdata(:),ydata(:)
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
# Line 413  contains Line 413  contains
413    
414      ! Methode naive (voir grille_m)      ! Methode naive (voir grille_m)
415    
416      use nrutil, only: assert_eq      use numer_rec, only: assert_eq
417    
418      REAL, intent(in):: xdata(:), ydata(:), entree(:,:), x(:), y(:), mask(:,:)      REAL, intent(in):: xdata(:), ydata(:), entree(:,:), x(:), y(:), mask(:,:)
419    
# Line 532  contains Line 532  contains
532      ! Methode naive (voir grille_m)      ! Methode naive (voir grille_m)
533      !=======================================================================      !=======================================================================
534    
535      use nrutil, only: assert_eq      use numer_rec, only: assert_eq
536    
537      REAL, intent(in):: xdata(:),ydata(:)      REAL, intent(in):: xdata(:),ydata(:)
538      REAL, intent(in):: glace01(:,:)      REAL, intent(in):: glace01(:,:)
Legend:
Removed from v.3  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21