Changeset 2460 for trunk


Ignore:
Timestamp:
Feb 16, 2021, 12:51:05 AM (4 years ago)
Author:
aslmd
Message:

MESOSCALE Mars: added precompiling flag MESOSCALE on a use of bp for mass estimates in r2447.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2456 r2460  
    428428  do l = 1, nlay
    429429    do ig = 1, ngrid
     430#ifndef MESOSCALE
    430431      masse(ig,l) = (pplev(ig,l) - pplev(ig,l+1) + (bp(l)-bp(l+1)) ) / g
     432#else
     433      masse(ig,l) = (pplev(ig,l) - pplev(ig,l+1)) / g
     434#endif
    431435      epaisseur(ig,l) = pzlev(ig,l+1) - pzlev(ig,l)
    432436    end do
Note: See TracChangeset for help on using the changeset viewer.