Changeset 473 for LMDZ.3.3

Timestamp:

Sep 30, 2003, 3:37:37 PM (21 years ago)

Author:

lmdzadmin

Message:

Petit probleme de coherence sur le co2 souleve par G. Krinner
LF

File:

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

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

@@ -502 +502 @@
       ytaux = y_flux_u(:,1)
       ytauy = y_flux_v(:,1)
+
+      if (nsrf.eq.is_oce) then
+         do j=1,knon
+            ycoefm(j,1)=1.e-3
+c            ycoefh(j,1)=0.8*ycoefm(j,1)
+         enddo
+      endif
 
 c FH modif sur le cdrag temperature
@@ -777 +784 @@
 #include "indicesol.h"
 #include "dimsoil.h"
+#INCLUDE "clesphys.h"
 c Arguments:
       INTEGER knon
@@ -1028 +1036 @@
         swdown(1:knon) = swnet(1:knon)
 c      enddo
-c En attendant mieux
-      ccanopy = 365.
+      ccanopy = co2_ppm
 
       CALL interfsurf(itime, dtime, date0, jour, rmu0,