Changeset 2348 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jun 9, 2020, 2:52:49 PM (4 years ago)
Author:
aslmd
Message:

tcondco2.F90 : clean

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/tcondco2.F90

    r2347 r2348  
    2222DO l=1,nlay
    2323   DO ig=1,ngrid
    24 !      qco2 = min(1., q(ig,l))!added by CM not sure, to be verified before
    25                              !  cleaning
    26 !      pco2 = qco2 * (mmean(ig,l)/44.01) * p(ig,l)
    2724      pco2 = q(ig,l) * (mmean(ig,l)/44.01) * p(ig,l)
    2825      tcond(ig,l)=B/(dlog(pco2)-A)
Note: See TracChangeset for help on using the changeset viewer.