/[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 12 by guez, Wed Feb 27 13:16:39 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# 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(:, :)
# 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.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21