Changeset 661


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

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r658 r661  
    16781678  and "tridag_sp" local array "gam" (to avoid using an a priori oversized
    16791679  local array).
     1680
     1681== 21/05/12 == JYC
     1682- corrected bug in computation of HCO2+ in paramfoto_compact.F

  • 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.