Ignore:
Timestamp:
May 16, 2025, 4:25:32 PM (6 weeks ago)
Author:
sglmd
Message:

A minor change to compute dlnpsat even if p < psat, otherwise the code can crash, depending on your compiler.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

    r3101 r3768  
    241241        else
    242242            dqsat = (RLVTT_generic/cpp) *qsat*(p/(p-(1-epsi_generic)*psat))*dummy
    243             dlnpsat = (RLVTT_generic/cpp) * dummy
    244243        endif
     244
     245        dlnpsat = (RLVTT_generic/cpp) * dummy
    245246
    246247    end subroutine Lcpdqsat_generic
Note: See TracChangeset for help on using the changeset viewer.