Changeset 501 for LMDZ.3.3/branches/rel-LF/libf/phylmd/coefkzmin.F

Timestamp:

Mar 23, 2004, 5:49:57 PM (21 years ago)

Author:

lmdzadmin

Message:

IM: petit bug dimensions tableau yustar IM/FH

File:

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

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

@@ -102 +102 @@
 
 
-      yustar(:) =SQRT(ycoefm(:,1)*(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))
+cIM cf FH   yustar(:) =SQRT(ycoefm(:,1)*(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))
+      yustar(1:ngrid) =SQRT(ycoefm(1:ngrid,1)*
+     $       (yu(1:ngrid,1)*yu(1:ngrid,1)+yv(1:ngrid,1)*yv(1:ngrid,1)))
 
 c  Fin de la partie qui doit etre unclue a terme dans clmain.