Changeset 590 for LMDZ4/trunk/libf/phylmd/clmain.F

Timestamp:

Feb 7, 2005, 5:41:35 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Synchro avec LOOP PC
LF

File:

• LMDZ4/trunk/libf/phylmd/clmain.F (modified) (7 diffs)

LMDZ4/trunk/libf/phylmd/clmain.F

@@ -241 +241 @@
 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)
@@ -351 +356 @@
       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
@@ -458 +467 @@
         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
@@ -667 +681 @@
      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,
@@ -900 +917 @@
      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,
@@ -958 +978 @@
       character*6 ocean
       integer npas, nexca
+c -- LOOP
+       REAL yu10mx(klon)
+       REAL yu10my(klon)
+       REAL ywindsp(klon)
+c -- LOOP
+
 
 c
@@ -1184 +1210 @@
      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,