--- trunk/libf/dyn3d/conf_dat2d.f90 2010/12/02 17:11:04 36 +++ trunk/dyn3d/conf_dat2d.f90 2013/11/15 18:45:49 76 @@ -1,14 +1,13 @@ module conf_dat2d_m - ! 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 @@ -27,8 +26,7 @@ ! If required, the longitudes and latitudes are finally replaced ! by their mid-values. - use nr_util, 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°