Changeset 192 for LMDZ.3.3/trunk

Timestamp:

Mar 29, 2001, 3:01:49 PM (23 years ago)

Author:

lmdz

Message:

pb de definition F90
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/YOMCST.inc (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/YOMCST.inc

@@ -1 +1 @@
 ! A1.0 Fundamental constants
-      REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
+      REAL :: RPI,RCLUM,RHPLA,RKBOL,RNAVO
 ! A1.1 Astronomical constants
-      REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
+      REAL :: RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
 ! A1.1.bis Constantes concernant l'orbite de la Terre:
-      REAL R_ecc, R_peri, R_incl
+      REAL :: R_ecc, R_peri, R_incl
 ! A1.2 Geoide
-      REAL RA,RG,R1SA
+      REAL :: RA,RG,R1SA
 ! A1.3 Radiation
-      REAL RSIGMA,RI0
+      REAL :: RSIGMA,RI0
 ! A1.4 Thermodynamic gas phase
-      REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
-      REAL RKAPPA,RETV
+      REAL :: R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
+      REAL :: RKAPPA,RETV
 ! A1.5,6 Thermodynamic liquid,solid phases
-      REAL RCW,RCS
+      REAL :: RCW,RCS
 ! A1.7 Thermodynamic transition of phase
-      REAL RLVTT,RLSTT,RLMLT,RTT,RATM
+      REAL :: RLVTT,RLSTT,RLMLT,RTT,RATM
 ! A1.8 Curve of saturation
-      REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
-      REAL RALPD,RBETD,RGAMD
+      REAL :: RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
+      REAL :: RALPD,RBETD,RGAMD
 !
       COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO &