Ignore:
Timestamp:
Jul 19, 2024, 5:41:58 PM (4 months ago)
Author:
abarral
Message:

(lint) Fix obsolete boolean operators

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/initrrnpb.F90

    r2320 r5082  
    6262     DO i = 1,klon
    6363        masktr(i,it) = 0.
    64         IF ( NINT(pctsrf(i,1)) .EQ. 1 ) masktr(i,it) = 1.
     64        IF ( NINT(pctsrf(i,1)) == 1 ) masktr(i,it) = 1.
    6565        fshtr(i,it) = s * masktr(i,it)
    6666     END DO
Note: See TracChangeset for help on using the changeset viewer.