Changeset 4821 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Feb 14, 2024, 9:26:23 PM (8 months ago)

Author:

evignon

Message:

reecriture de la routine de sublimation de neige soufflee en vue
du debut d'un stage de M2 sur le sujet prochainement

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1859 +1859 @@
        CALL ratqs_ini(klon,klev,iflag_thermals,lunout,nbsrf,is_lic,is_ter,RG,RV,RD,RCPD,RLSTT,RLVTT,RTT)
        CALL lscp_ini(pdtphys,lunout,prt_level,ok_ice_sursat,iflag_ratqs,fl_cor_ebil,RCPD,RLSTT,RLVTT,RLMLT,RVTMP2,RTT,RD,RG,RPI)
-       CALL blowing_snow_ini(prt_level,lunout, &
-                             RCPD, RLSTT, RLVTT, RLMLT, &
+       CALL blowing_snow_ini(RCPD, RLSTT, RLVTT, RLMLT, &
                              RVTMP2, RTT,RD,RG)
        ! Test de coherence sur oc_cdnc utilisé uniquement par cloud_optics_prop