/[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 39 by guez, Tue Jan 25 15:11:05 2011 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.  
3    ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22    ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22
4    
5    IMPLICIT NONE    IMPLICIT NONE
# Line 28  contains Line 27  contains
27      ! If required, the longitudes and latitudes are finally replaced      ! If required, the longitudes and latitudes are finally replaced
28      ! by their mid-values.      ! by their mid-values.
29    
30      use numer_rec, only: assert_eq      use nr_util, only: assert_eq, pi
     use comconst, only: pi  
31    
32      REAL, intent(in):: xd(:)      REAL, intent(in):: xd(:)
33      ! (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.39
  ViewVC Help
Powered by ViewVC 1.1.21