Changeset 2298 for LMDZ5/branches/testing/libf/phylmd/coef_diff_turb_mod.F90

Timestamp:

Jun 14, 2015, 9:13:32 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2237:2291 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/coef_diff_turb_mod.F90 (modified) (6 diffs)

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

@@ -13 +13 @@
 !
   SUBROUTINE coef_diff_turb(dtime, nsrf, knon, ni, &
-       ypaprs, ypplay, yu, yv, yq, yt, yts, yrugos, yqsurf, ycdragm, &
+       ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, &
        ycoefm, ycoefh ,yq2)
  
@@ -34 +34 @@
     REAL, DIMENSION(klon,klev), INTENT(IN)     :: yu, yv
     REAL, DIMENSION(klon,klev), INTENT(IN)     :: yq, yt
-    REAL, DIMENSION(klon), INTENT(IN)          :: yts, yrugos, yqsurf
+    REAL, DIMENSION(klon), INTENT(IN)          :: yts, yqsurf
     REAL, DIMENSION(klon), INTENT(IN)          :: ycdragm
 
@@ -70 +70 @@
     CALL coefkz(nsrf, knon, ypaprs, ypplay, &
          ksta, ksta_ter, &
-         yts, yrugos, yu, yv, yt, yq, &
+         yts, yu, yv, yt, yq, &
          yqsurf, &
          ycoefm, ycoefh)
@@ -181 +181 @@
   SUBROUTINE coefkz(nsrf, knon, paprs, pplay, &
        ksta, ksta_ter, &
-       ts, rugos, &
+       ts, &
        u,v,t,q, &
        qsurf, &
@@ -200 +200 @@
 ! pplay----input-R- pression au milieu de chaque couche (en Pa)
 ! ts-------input-R- temperature du sol (en Kelvin)
-! rugos----input-R- longeur de rugosite (en m)
 ! u--------input-R- vitesse u
 ! v--------input-R- vitesse v
@@ -223 +222 @@
     REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
     REAL, DIMENSION(klon,klev), INTENT(IN)   :: u, v, t, q
-    REAL, DIMENSION(klon), INTENT(IN)        :: rugos
     REAL, DIMENSION(klon), INTENT(IN)        :: qsurf