Changeset 675 for LMDZ4/trunk/libf/phylmd/orografi.F

Timestamp:

Dec 1, 2005, 12:27:29 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Pour compatibilite avec g95
LF

File:

• LMDZ4/trunk/libf/phylmd/orografi.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/orografi.F

@@ -586 +586 @@
       zhgeo=pgeom1(jl,jk)/rg
       ll1(jl,jk)=(zhgeo.gt.zhcrit(jl,jk))
-      if(ll1(jl,jk).xor.ll1(jl,jk+1)) then
+      if(ll1(jl,jk).neqv.ll1(jl,jk+1)) then
         kknu(jl)=jk
       endif
@@ -597 +597 @@
       zhgeo=pgeom1(jl,jk)/rg
       ll1(jl,jk)=(zhgeo.gt.zhcrit(jl,jk))
-      if(ll1(jl,jk).xor.ll1(jl,jk+1)) then
+      if(ll1(jl,jk).neqv.ll1(jl,jk+1)) then
         kknu2(jl)=jk
       endif
@@ -608 +608 @@
       zhgeo=pgeom1(jl,jk)/rg
       ll1(jl,jk)=(zhgeo.gt.zhcrit(jl,jk))
-      if(ll1(jl,jk).xor.ll1(jl,jk+1)) then
+      if(ll1(jl,jk).neqv.ll1(jl,jk+1)) then
         kknub(jl)=jk
       endif
@@ -1473 +1473 @@
 C*       0.2   LOCAL ARRAYS
 C              ------------
-      logical lifthigh, ll1
+      logical lifthigh
       integer klevm1, jl, ilevh, jk
       real zcons1, ztmst, zrtmst,zpi, zhgeo
@@ -1530 +1530 @@
       ZHGEO=PGEOM1(JL,JK)/RG
       ll1(JL,JK)=(ZHGEO.GT.ZHCRIT(JL,JK))
-      IF(ll1(JL,JK).XOR.ll1(JL,JK+1)) THEN
+      IF(ll1(JL,JK).neqv.ll1(JL,JK+1)) THEN
         iknub(JL)=JK
       ENDIF