Changeset 501 for LMDZ.3.3/branches


Ignore:
Timestamp:
Mar 23, 2004, 5:49:57 PM (21 years ago)
Author:
lmdzadmin
Message:

IM: petit bug dimensions tableau yustar IM/FH

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r500 r501  
    102102
    103103
    104       yustar(:) =SQRT(ycoefm(:,1)*(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))
     104cIM cf FH   yustar(:) =SQRT(ycoefm(:,1)*(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))
     105      yustar(1:ngrid) =SQRT(ycoefm(1:ngrid,1)*
     106     $       (yu(1:ngrid,1)*yu(1:ngrid,1)+yv(1:ngrid,1)*yv(1:ngrid,1)))
    105107
    106108c  Fin de la partie qui doit etre unclue a terme dans clmain.
Note: See TracChangeset for help on using the changeset viewer.