--- trunk/libf/dyn3d/guide.f90	2012/09/20 13:00:41	66
+++ trunk/dyn3d/guide.f	2014/03/05 14:57:53	82
@@ -15,15 +15,16 @@
 
     USE comconst, ONLY : cpp, daysec, dtvr, kappa
     USE comgeom, ONLY : aire, rlatu, rlonv
-    USE disvert_m, ONLY : ap, bp, preff, presnivs
     USE conf_gcm_m, ONLY : day_step, iperiod
     use conf_guide_m, only: conf_guide, guide_u, guide_v, guide_t, guide_q, &
          guide_p, ncep, ini_anal, tau_min_u, tau_max_u, tau_min_v, tau_max_v, &
          tau_min_t, tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &
          online
     USE dimens_m, ONLY : jjm, llm
+    USE disvert_m, ONLY : ap, bp, preff, presnivs
     USE exner_hyb_m, ONLY : exner_hyb
     USE inigrads_m, ONLY : inigrads
+    use massdair_m, only: massdair
     use netcdf, only: nf90_nowrite, nf90_open, nf90_close, nf90_inq_dimid, &
          nf90_inquire_dimension
     use nr_util, only: pi
@@ -37,7 +38,7 @@
     REAL, intent(inout):: teta(ip1jmp1, llm) ! temperature potentielle 
     REAL q(ip1jmp1, llm) ! temperature potentielle 
     REAL ps(ip1jmp1) ! pression au sol
-    REAL masse(ip1jmp1, llm) ! masse d'air
+    REAL, intent(out):: masse(ip1jmp1, llm) ! masse d'air
 
     ! variables dynamiques pour les reanalyses.
     REAL, save:: ucovrea1(ip1jmp1, llm), vcovrea1(ip1jm, llm) !vts cov reas