Changeset 675

Timestamp:

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

Author:

Laurent Fairhead

Message:

Pour compatibilite avec g95
LF

Location:

LMDZ4/trunk/libf/phylmd

Files:

• condsurf.F (modified) (1 diff)
• oasis.dummy (modified) (1 diff)
• orografi.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/condsurf.F

@@ -29 +29 @@
       PARAMETER ( nannemax = 60 )
 c
-      INTEGER jour, jourvrai
+      INTEGER jour
       INTEGER jourvrai
       REAL lmt_bils(klon) !bilan chaleur au sol

LMDZ4/trunk/libf/phylmd/oasis.dummy

@@ -20 +20 @@
 c     INCLUDE "param.h"
 c
-      INTEGER kastp, kexch, kstep,imjm,klon
+      INTEGER kastp, kexch, kstep,imjm
       INTEGER iparal(3)
       INTEGER ifcpl, idt, info, imxtag, istep, jf

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