Changeset 2952 for LMDZ5/trunk/libf/phylmd/coef_diff_turb_mod.F90

Timestamp:

Jul 14, 2017, 10:23:40 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Parametrization of drag by copses
Need version 4465 of ORCHIDEE at least

6. Cheruy

Location:

LMDZ5/trunk

Files:

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

LMDZ5/trunk/libf/phylmd/coef_diff_turb_mod.F90

@@ -14 +14 @@
   SUBROUTINE coef_diff_turb(dtime, nsrf, knon, ni, &
        ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, &
-       ycoefm, ycoefh ,yq2)
+       ycoefm, ycoefh ,yq2, ydrgpro)
  
     USE dimphy
@@ -37 +37 @@
     REAL, DIMENSION(klon), INTENT(IN)          :: yts, yqsurf
     REAL, DIMENSION(klon), INTENT(IN)          :: ycdragm
+!FC
+    REAL, DIMENSION(klon,klev), INTENT(IN)     :: ydrgpro
+
 
 ! InOutput arguments
@@ -167 +170 @@
                yzlev,yzlay,yu,yv,yteta, &
                ycdragm,yq2,ykmm,ykmn,ykmq,yustar, &
-               iflag_pbl)
+               iflag_pbl,ydrgpro)
+!FC
        ENDIF