Changeset 2345 for trunk/LMDZ.MARS/libf/phymars/tcondco2.F90

Timestamp:

Jun 9, 2020, 2:15:06 PM (4 years ago)

Author:

aslmd

Message:

tcondco2.F90 : clean

File:

• trunk/LMDZ.MARS/libf/phymars/tcondco2.F90 (modified) (1 diff)

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

@@ -22 +22 @@
 DO l=1,nlay
    DO ig=1,ngrid
-!      qco2 = min(1., q(ig,l))!added by CM not sure, to be verified before
-                             !  cleaning
-!      pco2 = qco2 * (mmean(ig,l)/44.01) * p(ig,l)
       pco2 = q(ig,l) * (mmean(ig,l)/44.01) * p(ig,l)
       tcond(ig,l)=B/(dlog(pco2)-A)