Changeset 589 for LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/clmain.F

Timestamp:

Feb 7, 2005, 4:47:11 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour le couplage carbone LOOP, PC
LF

File:

• LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/clmain.F (modified) (7 diffs)

LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/clmain.F

@@ -230 +230 @@
 c
       REAL yt2m(klon), yq2m(klon), yu10m(klon)
+c -- LOOP
+       REAL yu10mx(klon)
+       REAL yu10my(klon)
+       REAL ywindsp(klon)
+c -- LOOP
 c
       REAL uzon(klon), vmer(klon)
@@ -340 +345 @@
       ytsoil = 999999.
       yrugoro = 0.
-
+c -- LOOP
+      yu10mx = 0.0
+      yu10my = 0.0
+      ywindsp = 0.0
+c -- LOOP
       DO nsrf = 1, nbsrf
       DO i = 1, klon
@@ -447 +456 @@
         ypaprs(j,klev+1) = paprs(i,klev+1)
         y_run_off_lic_0(j) = run_off_lic_0(i)
+c -- LOOP
+       yu10mx(j) = u10m(i,nsrf)
+       yu10my(j) = v10m(i,nsrf)
+       ywindsp(j) = SQRT(yu10mx(j)*yu10mx(j) + yu10my(j)*yu10my(j) )
+c -- LOOP
       END DO
 C
@@ -555 +569 @@
      e          yt,yq,yts,ypaprs,ypplay,
      e          ydelp,yrads,yalb, yalblw, ysnow, yqsurf, 
-     e          yrain_f, ysnow_f, yfder, ytaux, ytauy, 
+     e          yrain_f, ysnow_f, yfder, ytaux, ytauy,
+c -- LOOP
+     e          ywindsp, 
+c -- LOOP
 c$$$     e          ysollw, ysolsw,
      e          ysollw, ysollwdown, ysolsw,yfluxlat,
@@ -799 +816 @@
      e                delp,radsol,albedo,alblw,snow,qsurf, 
      e                precip_rain, precip_snow, fder, taux, tauy,
+c -- LOOP
+     e                ywindsp,
+c -- LOOP
      $                sollw, sollwdown, swnet,fluxlat, 
      s                pctsrf_new, agesno,
@@ -857 +877 @@
       character*6 ocean
       integer npas, nexca
+c -- LOOP
+       REAL yu10mx(klon)
+       REAL yu10my(klon)
+       REAL ywindsp(klon)
+c -- LOOP
+
 
 c
@@ -1083 +1109 @@
      e tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef,
      e precip_rain, precip_snow, sollw, sollwdown, swnet, swdown,
-     e fder, taux, tauy, rugos, rugoro,
+     e fder, taux, tauy, 
+c -- LOOP
+     e ywindsp,
+c -- LOOP
+     e rugos, rugoro,
      e albedo, snow, qsurf,
      e ts, p1lay, psref, radsol,