Ignore:
Timestamp:
Jan 31, 2019, 8:22:47 PM (6 years ago)
Author:
oboucher
Message:

Changing hard-coded value of 28.97 g/mol by RMD physical constant defined in suphel.F90
As rmd = 28.9644, this involves a lack of numerical convergence with previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phyetat0.F90

    r3457 r3459  
    110110  IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
    111111     co2_ppm = tab_cntrl(3)
    112      RCO2    = co2_ppm * 1.0e-06  * RMCO2/28.97
     112     RCO2    = co2_ppm * 1.0e-06 * RMCO2 / RMD
    113113     ! ELSE : keep value from .def
    114114  ENDIF
Note: See TracChangeset for help on using the changeset viewer.