Ignore:
Timestamp:
Mar 22, 2011, 5:25:44 PM (14 years ago)
Author:
slebonnois
Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phytitan/YOMCST.h

    r3 r97  
    11!
    2 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOMCST.h,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
     2!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
     3!                 veillez  n'utiliser que des ! pour les commentaires
     4!                 et  bien positionner les & des lignes de continuation
     5!                 (les placer en colonne 6 et en colonne 73)
    36!
    47! A1.0 Fundamental constants
    … …  
    69! A1.1 Astronomical constants
    710      REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
     11! A1.1.bis Constantes concernant l'orbite de la Terre:
     12      REAL :: R_ecc, R_peri, R_incl
    813! A1.2 Geoide
    914      REAL RA,RG,R1SA
    1015! A1.3 Radiation
    11 !     REAL RSIGMA,RI0
     16!     REAL :: RSIGMA,RI0
    1217      REAL RSIGMA
    1318! A1.4 Thermodynamic gas phase
    … …  
    2530      REAL RALPD,RBETD,RGAMD
    2631!
    27 !    S      ,RSIGMA,RI0
    28       COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO
    29      S      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA
    30      S      ,RA    ,RG    ,R1SA
    31      S      ,RSIGMA
    32      S      ,R     ,RMD   ,RMV   ,RD    ,RV    ,RCPD
    33      S      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV
    34      S      ,RCW   ,RCS
    35      S      ,RLVTT ,RLSTT ,RLMLT ,RTT   ,RATM
    36      S      ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS
    37      S      ,RALPD ,RBETD ,RGAMD
    38 !    ------------------------------------------------------------------
     32      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA         &
     33     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl,            &
     34     & ,RA    ,RG ,R1SA                                                 &
     35     & ,RSIGMA,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD           &
     36     & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM  &
     37     & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD   &
     38     & ,RGAMD
Note: See TracChangeset for help on using the changeset viewer.