--- trunk/Sources/phylmd/screenc.f	2017/11/02 15:47:03	227
+++ trunk/phylmd/screenc.f	2018/07/11 16:50:27	274
@@ -40,13 +40,13 @@
     ! qsurf---input-R- humidite relative a la surface
     ! rugos---input-R- rugosite
     ! psol----input-R- pression au sol
-    REAL, dimension(klon), intent(in):: ustar, testar, qstar
-    ! ustar---input-R- facteur d'echelle pour le vent
+    REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
+    REAL, dimension(klon), intent(in):: testar
     ! testar--input-R- facteur d'echelle pour la temperature potentielle
+    REAL, dimension(klon), intent(in):: qstar
     ! qstar---input-R- facteur d'echelle pour l'humidite relative
 
-    REAL, dimension(klon), intent(out):: pref
-    ! pref----input-R- pression au niveau de reference
+    REAL, intent(out):: pref(:) ! (knon) pression au niveau de reference
     REAL, dimension(klon), intent(out):: delu
     ! delu----input-R- anomalie du vent par rapport au 1er niveau
     REAL, dimension(klon), intent(out):: delte
@@ -57,7 +57,7 @@
 
     ! Local:
     INTEGER i
-    REAL, dimension(klon):: cdram, cdrah, cdran, zri1, gref
+    REAL, dimension(knon):: cdram, cdrah, gref
 
     !------------------------------------------------------------------------- 
 
@@ -67,9 +67,9 @@
 
     ! Richardson at reference level
 
-    CALL coefcdrag (knon, nsrf, speed(:knon), temp(:knon), &
-         q_zref(:knon), gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, &
-         cdrah, cdran, zri1, pref)
+    CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &
+         gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), &
+         cdram, cdrah, pref)
 
     DO i = 1, knon
        delu(i) = ustar(i) / sqrt(cdram(i))