Changeset 3295 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Apr 8, 2024, 10:10:02 AM (9 months ago)
Author:
evos
Message:

Changing the critiria to lose ice form the subsurface to have less than 1e-9
ice on the surface.
If more, we lose only the ice from the surface for this subtimestep.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3292 r3295  
    11231123                    zdqsdif_tot(ig)=-zqsurf(ig)/subtimestep
    11241124                    if((h2o_ice_depth(ig,islope).gt.0)
     1125     &                  .and. (zqsurf(ig) .lt. 1e-9)
    11251126     &                  .and.lag_layer) then
    11261127                  ! Atm <-> subsurface exchange, we need to update the exchange coefficient zb by a factor 1/1+R; R = zice*Cd,h*/D and add the flux from the subsurface
Note: See TracChangeset for help on using the changeset viewer.