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

Modif pour contourner un probleme de division par 0 dans coefcdrag MM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r793 r893  
    6060! STABLE CASE
    6161!
    62           IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0) THEN
     62          IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0.AND.                   &
     63     &                                rugos(i).LE.1) THEN
    6364            delu(i) = (ustar(i)/RKAR)* &
    6465                      (log(zref/(rugos(i))+1.) + &
Note: See TracChangeset for help on using the changeset viewer.