Ignore:
Timestamp:
Oct 31, 2003, 9:56:01 AM (21 years ago)
Author:
lmdzadmin
Message:

Possible incoherence entre co2_ppm et RCO2 et probleme de definition des
variables des gaz (definies en double ce qui ne plait pas a getin)
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

    r467 r480  
    4040! Local
    4141  integer              :: numout = 6
     42  real                 :: zzz
    4243
    4344!
     
    159160  RCO2 = co2_ppm * 1.0e-06  * 44.011/28.97 ! pour co2_ppm=348.
    160161
    161   call getin('RCO2', RCO2)
     162!!  call getin('RCO2', RCO2)
    162163!!
    163164!Config Key  = RCH4
     
    174175! RCH4 = 1.72E-06* 16.043/28.97
    175176!OK call getin('RCH4', RCH4)
    176   CH4_ppb = 1650.
    177   call getin('CH4_ppb', CH4_ppb)
     177  zzz = 1650.
     178  call getin('CH4_ppb', zzz)
     179  CH4_ppb = zzz
    178180  RCH4 = CH4_ppb * 1.0E-09 * 16.043/28.97
    179181!!
     
    191193! RN2O = 310.E-09* 44.013/28.97
    192194!OK  call getin('RN2O', RN2O)
    193   N2O_ppb=306.
    194   call getin('N2O_ppb', N2O_ppb)
     195  zzz=306.
     196  call getin('N2O_ppb', zzz)
     197  N2O_ppb = zzz
    195198  RN2O = N2O_ppb * 1.0E-09 * 44.013/28.97
    196199!!
     
    202205!
    203206!OK RCFC11 = 280.E-12* 137.3686/28.97
    204   CFC11_ppt = 280.
    205   call getin('CFC11_ppt',CFC11_ppt)
     207  zzz = 280.
     208  call getin('CFC11_ppt',zzz)
     209  CFC11_ppt = zzz
    206210  RCFC11=CFC11_ppt* 1.0E-12 * 137.3686/28.97
    207211! RCFC11 = 1.327690990680013E-09
     
    215219!
    216220!OK RCFC12 = 484.E-12* 120.9140/28.97
    217   CFC12_ppt = 484.
    218   call getin('CFC12_ppt',CFC12_ppt)
     221  zzz = 484.
     222  call getin('CFC12_ppt',zzz)
     223  CFC12_ppt = zzz
    219224  RCFC12 = CFC12_ppt * 1.0E-12 * 120.9140/28.97
    220225! RCFC12 = 2.020102726958923E-09
Note: See TracChangeset for help on using the changeset viewer.