Changeset 3601 for LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_ctrlout_mod.F90

Timestamp:

Nov 18, 2019, 4:48:48 PM (4 years ago)

Author:

lguez

Message:

Add output variable tsoil_deep_land.

File:

• LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -332 +332 @@
   TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_tsoil_deep_land &
+       = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
+       'tsoil_deep_land', 'temperature of land deep soil', 'K', &
+       (/ ('', i=1, 10) /))
   TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'ndayrain', 'Number of dayrain(liq+sol)', '-', &
@@ -1927 +1931 @@
    type(ctrl_out), save:: o_dt_ns &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dT_ns', &
-        "delta temperature near surface", "K", '')
+        "sub-skin temperature minus foundation temperature", "K", '')
 
    type(ctrl_out), save:: o_dter &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dTer', &
-        "temperature variation in the diffusive microlayer", "K", '')
+        "interface temperature minus sub-skin temperature", "K", '')
 
    type(ctrl_out), save:: o_dser &