--- trunk/libf/dyn3d/conf_dat2d.f90 2008/02/27 13:16:39 3 +++ trunk/libf/dyn3d/conf_dat2d.f90 2012/11/14 16:59:30 68 @@ -1,15 +1,13 @@ module conf_dat2d_m - ! This module is clean: no C preprocessor directive, no include line. - ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22 - IMPLICIT NONE contains SUBROUTINE conf_dat2d(xd, yd, xf, yf, champd, interbar) - ! Auteur : P. Le Van + ! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22 + ! Author : P. Le Van ! Ce sous-programme configure le champ de données 2D 'champd' et ! les longitudes et latitudes de telle façon qu'on ait - pi à pi @@ -28,8 +26,7 @@ ! If required, the longitudes and latitudes are finally replaced ! by their mid-values. - use nrutil, only: assert_eq - use comconst, only: pi + use nr_util, only: assert_eq, pi REAL, intent(in):: xd(:) ! (longitudes, in degrees or radians, in increasing order, from 0°