Changeset 3393 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 18, 2018, 9:08:13 AM (6 years ago)
Author:
oboucher
Message:

Adding RMCO2 to the list of constants

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/YOMCST.h

    r1907 r3393  
    2020      REAL RSIGMA
    2121! A1.4 Thermodynamic gas phase
    22       REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
     22      REAL R,RMD,RMO3,RMCO2,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
    2323      REAL RKAPPA,RETV
    2424! A1.5,6 Thermodynamic liquid,solid phases
     
    3535     &      ,RA    ,RG    ,R1SA                                         &
    3636     &      ,RSIGMA                                                     &
    37      &      ,R     ,RMD   ,RMO3  ,RMV   ,RD    ,RV    ,RCPD             &
     37     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMV   ,RD    ,RV    ,RCPD      &
    3838     &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV                           &
    3939     &      ,RCW   ,RCS                                                 &
  • LMDZ6/trunk/libf/phylmd/suphel.F90

    r3319 r3393  
    117117  rmd = 28.9644
    118118  rmo3 = 47.9942
     119  rmco2 = 44.011
    119120  rmv = 18.0153
    120121  rd = 1000.*r/rmd
     
    130131  WRITE (UNIT=6, FMT='('' Dry air mass = '',e13.7)') rmd
    131132  WRITE (UNIT=6, FMT='('' Ozone   mass = '',e13.7)') rmo3
     133  WRITE (UNIT=6, FMT='('' CO2     mass = '',e13.7)') rmco2
    132134  WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
    133135  WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd
Note: See TracChangeset for help on using the changeset viewer.