--- trunk/libf/dyn3d/conf_dat3d.f90 2010/12/02 17:11:04 36 +++ trunk/libf/dyn3d/conf_dat3d.f90 2011/01/25 15:11:05 39 @@ -14,8 +14,7 @@ ! que la longitude varie de - pi à pi, la latitude de pi/2 à ! - pi/2 et pour que la coordonnée pression soit décroissante. - use comconst, only: pi - use nr_util, only: assert_eq + use nr_util, only: assert_eq, pi REAL, intent(in):: xd(:), yd(:) ! longitudes et latitudes initiales, en rad REAL, intent(in):: zd(:) ! pressure levels, in Pa or hPa