Changeset 768 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Sep 3, 2012, 4:41:09 PM (12 years ago)
Author:
tnavarro
Message:

water conservation bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/improvedclouds.F

    r740 r768  
    242242     &      pdq(1:ngrid,1:nlay,1:nq) * ptimestep
    243243     
    244       zq0(1:ngrid,1:nlay,1:nq) = zq(1:ngrid,1:nlay,1:nq)
    245244     
    246245      WHERE( zq(1:ngrid,1:nlay,1:nq) < 1.e-30 )
    247246     &       zq(1:ngrid,1:nlay,1:nq) = 1.e-30
     247
     248      zq0(1:ngrid,1:nlay,1:nq) = zq(1:ngrid,1:nlay,1:nq)
    248249     
    249250!=============================================================
Note: See TracChangeset for help on using the changeset viewer.