Changeset 1707 for LMDZ5/branches/testing/libf/phylmd/phytrac.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phytrac.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/phytrac.F90

@@ -8 +8 @@
      cdragh,    coefh,    fm_therm, entr_therm,&
      yu1,       yv1,      ftsol,    pctsrf,    &
+     ustar,     u10m,      v10m,               &
      xlat,      frac_impa,frac_nucl,xlon,      &
      presnivs,  pphis,    pphi,     albsol,    &
@@ -119 +120 @@
 !--------------
 !
-  REAL,DIMENSION(klon),INTENT(IN)      :: cdragh ! coeff drag pour T et Q
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: coefh  ! coeff melange CL (m**2/s)
-  REAL,DIMENSION(klon),INTENT(IN)      :: yu1    ! vents au premier niveau
-  REAL,DIMENSION(klon),INTENT(IN)      :: yv1    ! vents au premier niveau
+  REAL,DIMENSION(klon),INTENT(IN)     :: cdragh ! coeff drag pour T et Q
+  REAL,DIMENSION(klon,klev),INTENT(IN):: coefh  ! coeff melange CL (m**2/s)
+  REAL,DIMENSION(klon),INTENT(IN)     :: ustar,u10m,v10m ! u* & vent a 10m (m/s)
+  REAL,DIMENSION(klon),INTENT(IN)     :: yu1    ! vents au premier niveau
+  REAL,DIMENSION(klon),INTENT(IN)     :: yv1    ! vents au premier niveau
 !
 !Lessivage:
@@ -244 +246 @@
      !    -- Traitement des traceurs avec traclmdz
      CALL traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
-          cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, &
-          sh, tr_seri, source, solsym, d_tr_cl, zmasse)
+          cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon,couchelimite,sh,&
+          rh, pphi, ustar, u10m, v10m, &
+          tr_seri, source, solsym, d_tr_cl, zmasse)
   CASE('inca')
      !    -- CHIMIE INCA  config_inca = aero or chem --