Changeset 902 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Feb 7, 2008, 3:26:47 PM (17 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/trunk/libf/phylmd/screenp.F90

    r793 r902  
    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                        &
     63     &                      .AND. rugos(i).LE.1.0) THEN
    6364            delu(i) = (ustar(i)/RKAR)* &
    6465                      (log(zref/(rugos(i))+1.) + &
Note: See TracChangeset for help on using the changeset viewer.