Changeset 102 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jul 5, 2000, 6:25:55 PM (24 years ago)

Author:

lmdzadmin

Message:

* empty log message *

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

@@ -261 +261 @@
         ysnow_f(j) = snow_f(i)
         yfder(j) = fder(i)
-        ytaux(j) = flux_u(i,nsrf)
-        ytauy(j) = flux_v(i,nsrf)
+        ytaux(j) = flux_u(i,1,nsrf)
+        ytauy(j) = flux_v(i,1,nsrf)
         ysolsw(j) = solsw(i)
         ysollw(j) = sollw(i)