--- trunk/libf/dyn3d/conf_dat3d.f90 2010/03/03 13:23:49 24 +++ trunk/Sources/dyn3d/conf_dat3d.f 2015/04/29 15:47:56 134 @@ -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 numer_rec, 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