Changeset 2155


Ignore:
Timestamp:
Sep 5, 2019, 6:42:34 PM (5 years ago)
Author:
aslmd
Message:

another thing done in the CO2 physics that is not suitable for mesoscale, to be corrected

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/co2condens_mod.F

    r2153 r2155  
    490490            END DO
    491491
     492#ifdef MESOSCALE
     493         print*,"absurd mass set because bp not available"
     494         print*,"TO BE FIXED"
     495#else
    492496c Mass of each layer at the end of timestep
    493497c -----------------------------------------
    … …  
    496500     &                 (bp(l)-bp(l+1))*pdpsrf(ig)*ptimestep)/g
    497501            END DO
    498 
     502#endif
    499503
    500504c  Corresponding fluxes for T,U,V,Q
Note: See TracChangeset for help on using the changeset viewer.