Changeset 1371 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Nov 24, 2014, 11:51:40 AM (10 years ago)
Author:
emillour
Message:

Generic model:
Picky compilers (eg. gfortran) do not tolerate comparisons between logicals, except using eqv.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F

    r1318 r1371  
    378378      call getin("rad",rad)
    379379      ! Planetary  radius is needed to compute shadow of the rings
    380       IF (rad.eq.-99999. .and. rings_shadow .eq. .true.) THEN
     380      IF (rad.eq.-99999. .and. rings_shadow .eqv. .true.) THEN
    381381          PRINT *,"STOP. I NEED rad IN RCM1D.DEF."
    382382          STOP
Note: See TracChangeset for help on using the changeset viewer.