Changeset 98 for LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h

Timestamp:

Jul 5, 2000, 4:58:04 PM (24 years ago)

Author:

lmdzadmin

Message:

Interface avec les differentes surface, version de travail.LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h

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