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

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 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/traclmdz_mod.F90 (modified) (2 diffs)

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

@@ -279 +279 @@
   SUBROUTINE traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
        cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, sh, &
+       rh, pphi, ustar, zu10m, zv10m, &
        tr_seri, source, solsym, d_tr_cl, zmasse)
     
@@ -315 +316 @@
 !--------------
 !
-    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   ! diffusivite turb (m**2/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: yu1     ! vents au premier niveau
+    REAL,DIMENSION(klon),INTENT(IN)      :: yv1     ! vents au premier niveau
     LOGICAL,INTENT(IN)                   :: couchelimite
-    REAL,DIMENSION(klon,klev),INTENT(IN) :: sh         ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: sh      ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: rh      ! Humidite relative
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pphi    ! geopotentie
+    REAL,DIMENSION(klon),INTENT(IN)      :: ustar   ! ustar (m/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: zu10m   ! vent zonal 10m (m/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: zv10m   ! vent zonal 10m (m/s)
 
 ! Arguments necessaires pour les sources et puits de traceur: