Changeset 6860

Timestamp:

2016-08-09T16:39:23+02:00 (8 years ago)

Author:

clem

Message:

replace == by eqv for gfortran compilers

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90 (modified) (2 diffs)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90

@@ -213 +213 @@
                !
                zzt(ji,jj) = pt(ji,jj) - zc_box * pdt * ( pt_u(ji,jj) - pt_u(ji-1,jj) ) * r1_e12t(ji,jj)
-               IF( lcon == .TRUE. ) THEN ! clem => for a.div(u) ??
+               IF( lcon .eqv. .TRUE. ) THEN ! clem => for a.div(u) ??
                   zzt(ji,jj) = zzt(ji,jj) - pt(ji,jj) * pdt * ( pu(ji,jj) - pu(ji-1,jj) ) * r1_e12t(ji,jj)
                END IF
@@ -237 +237 @@
                !
                zzt(ji,jj) = pt(ji,jj) - zc_box * pdt * ( pt_v(ji,jj) - pt_v(ji,jj-1) ) * r1_e12t(ji,jj)
-               IF( lcon == .TRUE. ) THEN ! clem => for a.div(u) ??
+               IF( lcon .eqv. .TRUE. ) THEN ! clem => for a.div(u) ??
                   zzt(ji,jj) = zzt(ji,jj) - pt(ji,jj) * pdt * ( pv(ji,jj) - pv(ji,jj-1) ) * r1_e12t(ji,jj)
                END IF