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

Diff of /trunk/dyn3d/Inter_barxy/inter_barxy.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 16  contains Line 16  contains
16    
17      ! Author: P. Le Van      ! Author: P. Le Van
18    
19      use nrutil, only: assert_eq, assert      use numer_rec, only: assert_eq, assert
20    
21      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
22      use comgeom, only: aire_2d, apoln, apols      use comgeom, only: aire_2d, apoln, apols
# Line 115  contains Line 115  contains
115      !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)      !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)
116      !      ( Les abscisses sont exprimées en degres)      !      ( Les abscisses sont exprimées en degres)
117    
118      use nrutil, only: assert_eq      use numer_rec, only: assert_eq
119    
120      IMPLICIT NONE      IMPLICIT NONE
121    
# Line 300  contains Line 300  contains
300      ! Version unidimensionnelle, en latitude.      ! Version unidimensionnelle, en latitude.
301      ! L'indice 1 correspond à l'interface maille 1 -- maille 2.      ! L'indice 1 correspond à l'interface maille 1 -- maille 2.
302    
303      use nrutil, only: assert      use numer_rec, only: assert
304    
305      IMPLICIT NONE      IMPLICIT NONE
306    
# Line 377  contains Line 377  contains
377      ! reverses their order.      ! reverses their order.
378      ! Finally, the procedure adds 90° as the last value of the array.      ! Finally, the procedure adds 90° as the last value of the array.
379    
380      use nrutil, only: assert_eq      use numer_rec, only: assert_eq
381      use comconst, only: pi      use comconst, only: pi
382    
383      IMPLICIT NONE      IMPLICIT NONE
Legend:
Removed from v.3  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21