/[lmdze]/trunk/Sources/dyn3d/conf_dat2d.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/conf_dat2d.f

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

revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC
# Line 1  Line 1 
1  module conf_dat2d_m  module conf_dat2d_m
2    
   ! This module is clean: no C preprocessor directive, no include line.  
   ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22  
   
3    IMPLICIT NONE    IMPLICIT NONE
4    
5  contains  contains
6    
7    SUBROUTINE conf_dat2d(xd, yd, xf, yf, champd, interbar)    SUBROUTINE conf_dat2d(xd, yd, xf, yf, champd, interbar)
8    
9      ! Auteur : P. Le Van      ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22
10        ! Author : P. Le Van
11    
12      ! Ce sous-programme configure le champ de données 2D 'champd' et      ! Ce sous-programme configure le champ de données 2D 'champd' et
13      ! les longitudes et latitudes de telle façon qu'on ait - pi à pi      ! les longitudes et latitudes de telle façon qu'on ait - pi à pi
# Line 28  contains Line 26  contains
26      ! If required, the longitudes and latitudes are finally replaced      ! If required, the longitudes and latitudes are finally replaced
27      ! by their mid-values.      ! by their mid-values.
28    
29      use numer_rec, only: assert_eq      use nr_util, only: assert_eq, pi
     use comconst, only: pi  
30    
31      REAL, intent(in):: xd(:)      REAL, intent(in):: xd(:)
32      ! (longitudes, in degrees or radians, in increasing order, from 0°      ! (longitudes, in degrees or radians, in increasing order, from 0°

Legend:
Removed from v.13  
changed lines
  Added in v.68

  ViewVC Help
Powered by ViewVC 1.1.21