Changeset 363

Timestamp:

Jun 11, 2002, 2:18:30 PM (22 years ago)

Author:

lmdzadmin

Message:

Modif sur les cdrags temperature FH
LF

File:

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

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

@@ -455 +455 @@
       ytauy = y_flux_v(:,1)
 
+c FH modif sur le cdrag temperature
+      do i=1,knon
+         ycoefh(i,1)=ycoefm(i,1)*0.8
+      enddo
+
 c calculer la diffusion de "q" et de "h"
       CALL clqh(dtime, itap, date0,jour, debut,lafin,