Changeset 894


Ignore:
Timestamp:
Feb 5, 2008, 3:22:17 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Modif entier a reel
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/screenp.F90

    r893 r894  
    6161!
    6262          IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0.AND.                   &
    63      &                                rugos(i).LE.1) THEN
     63     &                                rugos(i).LE.1.) THEN
    6464            delu(i) = (ustar(i)/RKAR)* &
    6565                      (log(zref/(rugos(i))+1.) + &
Note: See TracChangeset for help on using the changeset viewer.