/[lmdze]/trunk/dyn3d/inter_barxy.f
ViewVC logotype

Diff of /trunk/dyn3d/inter_barxy.f

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

revision 24 by guez, Wed Mar 3 13:23:49 2010 UTC revision 36 by guez, Thu Dec 2 17:11:04 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 16  contains Line 13  contains
13    
14      ! Author: P. Le Van      ! Author: P. Le Van
15    
16      use numer_rec, only: assert_eq, assert      use nr_util, 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 114  contains Line 111  contains
111      !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)      !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)
112      !      ( Les abscisses sont exprimées en degres)      !      ( Les abscisses sont exprimées en degres)
113    
114      use numer_rec, only: assert_eq      use nr_util, only: assert_eq
115    
116      IMPLICIT NONE      IMPLICIT NONE
117    
# Line 299  contains Line 296  contains
296      ! Version unidimensionnelle, en latitude.      ! Version unidimensionnelle, en latitude.
297      ! L'indice 1 correspond à l'interface maille 1 -- maille 2.      ! L'indice 1 correspond à l'interface maille 1 -- maille 2.
298    
299      use numer_rec, only: assert      use nr_util, only: assert
300    
301      IMPLICIT NONE      IMPLICIT NONE
302    
# Line 376  contains Line 373  contains
373      ! reverses their order.      ! reverses their order.
374      ! Finally, the procedure adds 90° as the last value of the array.      ! Finally, the procedure adds 90° as the last value of the array.
375    
376      use numer_rec, only: assert_eq      use nr_util, only: assert_eq
377      use comconst, only: pi      use comconst, only: pi
378    
379      IMPLICIT NONE      IMPLICIT NONE
Legend:
Removed from v.24  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.21