Changeset 4835 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Feb 29, 2024, 7:42:12 PM (9 months ago)

Author:

evignon

Message:

commission pour la suite du travail sur la mise a jour
de la param de neige soufflee

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -48 +48 @@
          o_psol, o_mass, o_qsurf, o_qsol, &
          o_precip, o_rain_fall, o_rain_con, o_ndayrain, o_plul, o_pluc, o_plun, &
-         o_snow, o_msnow, o_fsnow, o_evap, o_snowerosion, o_ustart_lic, o_rhosnow_lic, o_bsfall, & 
+         o_snow, o_msnow, o_fsnow, o_evap, o_snowerosion, o_ustart_lic, o_qsalt_lic, o_rhosnow_lic, o_bsfall, & 
          o_ep,o_epmax_diag, & ! epmax_cape
          o_tops, o_tops0, o_topl, o_topl0, &
@@ -310 +310 @@
     USE phys_local_var_mod, ONLY: zxfluxlat, slp, ptstar, pt0, zxtsol, zt2m, &
          zn2mout, t2m_min_mon, t2m_max_mon, evap, &
-         snowerosion, zxustartlic, zxrhoslic, &
+         snowerosion, zxustartlic, zxrhoslic, zxqsaltlic, &
          l_mixmin,l_mix, tke_dissip, &
          zu10m, zv10m, zq2m, zustar, zxqsurf, &
@@ -897 +897 @@
            CALL histwrite_phy(o_ustart_lic, zxustartlic)
            CALL histwrite_phy(o_rhosnow_lic, zxrhoslic)
+           CALL histwrite_phy(o_qsalt_lic, zxqsaltlic)
        ENDIF