--- trunk/dyn3d/etat0.f 2014/09/18 13:36:51 112 +++ trunk/dyn3d/etat0.f 2014/09/18 19:56:46 113 @@ -46,7 +46,6 @@ use q_sat_m, only: q_sat use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz use regr_pr_o3_m, only: regr_pr_o3 - use serre, only: alphax use startdyn, only: start_init_dyn USE start_init_orog_m, only: start_init_orog, mask use start_init_phys_m, only: start_init_phys @@ -296,8 +295,6 @@ ! Calcul interm\'ediaire : CALL massdair(p3d, masse) - print *, 'ALPHAX = ', alphax - forall (l = 1:llm) masse(:, 1, l) = SUM(aire_2d(:iim, 1) * masse(:iim, 1, l)) / apoln masse(:, jjm + 1, l) = &