Changeset 4835 for LMDZ6/trunk/libf/phylmdiso/phys_output_ctrlout_mod.F90

Timestamp:

Feb 29, 2024, 7:42:12 PM (3 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/phylmdiso/phys_output_ctrlout_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/phys_output_ctrlout_mod.F90

@@ -388 +388 @@
   TYPE(ctrl_out), SAVE :: o_rhosnow_lic = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), &
     'rhosnow_lic', 'snow density lic', 'kg/m3', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_qsalt_lic = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), &
+    'qsalt_lic', 'qb in saltation layer lic', 'kg/kg', (/ ('', i=1, 10) /)) 
   TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), &
     'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /))