Changeset 677 for LMDZ4/trunk/libf/phylmd/phytrac.F

Timestamp:

Jan 27, 2006, 4:14:22 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Differentes corrections pour g95
LF

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -156 +156 @@
       logical lafin          ! le flag de la fin de la physique
 c Olivia      
-      integer isplit,nsplit
+      integer nsplit
       REAL pmflxr(klon,klev+1), pmflxs(klon,klev+1)   !--lessivage convection
       REAL prfl(klon,klev+1),   psfl(klon,klev+1)     !--lessivage large-scale
@@ -163 +163 @@
       REAL flxmass_w(klon,klev)
 #endif
-      integer iflag_con
+c      integer iflag_con
 
 cAA Rem : nbtr : nombre de vrais traceurs est defini dans dimphy.h