Changeset 293

Timestamp:

Nov 23, 2001, 2:31:38 PM (23 years ago)

Author:

lmdzadmin

Message:

On passait a ORCHIDEE un flux solaire albedoise deux fois (je me comprends)
LF

File:

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

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

@@ -434 +434 @@
       CALL coefkz2(nsrf, knon, ypaprs, ypplay,yt,
      .                  ycoefm0, ycoefh0)
+      write(*,*)'Cdrag maximal = ',maxval(ycoefh(:,1)),
+     .                               maxval(ycoefh0(:,1))
       DO k = 1, klev
       DO i = 1, knon
@@ -440 +442 @@
       ENDDO
       ENDDO
+
+      write(*,*)'Cdrag maximal = ',maxloc(ycoefh(:,1)),
+     .                             maxval(ycoefh(:,1))
 c
 c
@@ -586 +591 @@
      e                delp,radsol,albedo,alblw,snow,qsol, 
      e                precip_rain, precip_snow, fder, taux, tauy,
-     $                sollw, sollwdown, swdown,fluxlat, 
+     $                sollw, sollwdown, swnet,fluxlat, 
      s                pctsrf_new, agesno,
      s                d_t, d_q, d_ts, z0_new, 
@@ -828 +833 @@
         p1lay(1:knon) = pplay(1:knon,1)
         zlev1(1:knon) = delp(1:knon,1)
-        swnet = swdown * (1. - albedo)
+c        swnet = swdown * (1. - albedo)
+        swdown(1:knon) = swnet(1:knon)
 c      enddo
 c En attendant mieux