Changeset 4535 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

May 13, 2023, 2:12:05 PM (14 months ago)

Author:

evignon

Message:

poursuite de la replay-isation de lscp en vue de la session
de reecriture de lscp_mod en juin

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1909 +1909 @@
        CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
-       IF (ok_new_lscp) then
-           CALL lscp_ini(pdtphys,ok_ice_sursat)
-       endif
+       CALL lscp_ini(pdtphys,ok_ice_sursat,RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT,RD,RG)
        CALL blowing_snow_ini(prt_level,lunout, &
                              RCPD, RLSTT, RLVTT, RLMLT, &