Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/screenc.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/screenc.F90 (modified) (1 diff)

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

@@ -66 +66 @@
 ! Richardson at reference level 
 !
-      CALL coefcdrag (klon, knon, nsrf, zxli, &
+!      CALL coefcdrag (klon, knon, nsrf, zxli, &
+!                    speed, temp, q_zref, gref, &
+!                    psol, ts, qsurf, rugos, &
+!                    okri, ri1, &
+!                    cdram, cdrah, cdran, zri1, &
+!                    pref)
+! Fuxing WANG, 04/03/2015, replace the coefcdrag by the merged version: cdrag
+      CALL cdrag (knon, nsrf, &
                     speed, temp, q_zref, gref, &
                     psol, ts, qsurf, rugos, &
-                    okri, ri1, &
-                    cdram, cdrah, cdran, zri1, &
-                    pref)
-!
+                    cdram, cdrah, zri1, pref)
       DO i = 1, knon
         delu(i) = ustar(i)/sqrt(cdram(i))