/[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 36 by guez, Thu Dec 2 17:11:04 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 373  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 nr_util, only: assert_eq      use nr_util, only: assert_eq, pi
     use comconst, only: pi  
377    
378      IMPLICIT NONE      IMPLICIT NONE
379    
# Line 432  contains Line 431  contains
431      ! This procedure converts to degrees, if necessary, and inverts the      ! This procedure converts to degrees, if necessary, and inverts the
432      ! order.      ! order.
433    
434      use comconst, only: pi      use nr_util, only: pi
435    
436      IMPLICIT NONE      IMPLICIT NONE
437    
Legend:
Removed from v.36  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21