Changeset 2453 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Feb 3, 2021, 11:36:08 AM (4 years ago)
Author:
flefevre
Message:

Correction de bug dans la photolyse à haute altitude (> 200 km)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90

    r2418 r2453  
    14541454! interpolation in co2 column
    14551455
    1456    indcol = nz - 1
     1456   indcol = nztable - 1
    14571457   cicol  = 0.
    14581458
    1459    do i = 1,nztable
     1459   do i = 1,nztable - 1
    14601460      if (table_colair(i) < col(iz)) then
    14611461         cicol = (log(col(iz)) - log(table_colair(i)))           &
Note: See TracChangeset for help on using the changeset viewer.