--- trunk/dyn3d/tau2alpha.f 2014/09/11 15:09:15 107 +++ trunk/dyn3d/tau2alpha.f 2014/09/16 14:00:41 108 @@ -16,7 +16,6 @@ USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv use conf_guide_m, only: lat_min_guide, lat_max_guide USE dimens_m, ONLY : iim - use dump2d_m, only: dump2d USE nr_util, ONLY : pi USE serre, ONLY : clat, clon, grossismx, grossismy @@ -71,10 +70,6 @@ END DO END DO - CALL dump2d(iip1, jjp1, dxdys, 'DX2DY2 SCAL ') - CALL dump2d(iip1, jjp1, dxdyu, 'DX2DY2 U ') - CALL dump2d(iip1, jjp1, dxdyv, 'DX2DY2 v ') - ! coordonnees du centre du zoom CALL coordij(clon, clat, ilon, ilat) ! aire de la maille au centre du zoom