Ignore:
Timestamp:
May 21, 2012, 8:42:48 AM (13 years ago)
Author:
emillour
Message:

Mars GCM:

  • corrected bug in computation of HCO2+ in paramfoto_compact.F

JYC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/paramfoto_compact.F

    r658 r661  
    594594                  cplusxnew = cplusxinput+dcplusx*alfa_laststep
    595595                  if(cplusxnew.lt.0)cplusxnew=1.e-30
    596                   hco2plusxnew = hco2plusxinput+dco2plusx*alfa_laststep
     596                  hco2plusxnew = hco2plusxinput+dhco2plusx*alfa_laststep
    597597                  if(hco2plusxnew.lt.0)hco2plusxnew=1.e-30
    598598                  electxnew = electxinput+delectx*alfa_laststep
Note: See TracChangeset for help on using the changeset viewer.