Changeset 1620 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 24, 2016, 9:28:35 AM (8 years ago)

Author:

emillour

Message:

Mars GCM:
Small fix for gfortran, more strict than ifort: logicals should be compared using .eqv., not .eq.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/massflowrateCO2.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/massflowrateCO2.F

@@ -65 +65 @@
       call  coefffunc(P,T,Sat,Radius,Matm,kmix,Lsub,C0,C1,C2)
 
-      if (isnan(C0) .eq. .true.)  C0=0d0
+      if (isnan(C0) .eqv. .true.)  C0=0d0