Ignore:
Timestamp:
Jul 18, 2017, 4:45:43 PM (7 years ago)
Author:
jbmadeleine
Message:

Added a max on sigma1s to avoid numerical noise;

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cloudth_mod.F90

    r2958 r2959  
    10551055      ELSE IF (iflag_cloudth_vert == 4) THEN
    10561056        IF (iflag_cloudth_vert_noratqs == 1) THEN
    1057           deltasenv=vert_alpha*sigma1s_fraca
     1057          deltasenv=vert_alpha*max(sigma1s_fraca,1e-10)
    10581058          deltasth=vert_alpha_th*sigma2s
    10591059        ELSE
Note: See TracChangeset for help on using the changeset viewer.