Changeset 3601

Timestamp:

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

Author:

lguez

Message:

Add output variable tsoil_deep_land.

Location:

LMDZ6/branches/Ocean_skin/libf/phylmd

Files:

• phys_output_ctrlout_mod.F90 (modified) (2 diffs)
• phys_output_var_mod.F90 (modified) (1 diff)
• phys_output_write_mod.F90 (modified) (4 diffs)
• surf_ocean_mod.F90 (modified) (1 diff)

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 &

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

@@ -140 +140 @@
   REAL, ALLOCATABLE, SAVE:: dter(:)
   ! Temperature variation in the diffusive microlayer, that is
-  ! subskin temperature minus ocean-air interface temperature. In
-  ! K.
+  ! ocean-air interface temperature minus subskin temperature. In K.
       
   REAL, SAVE, ALLOCATABLE:: dser(:)

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

@@ -39 +39 @@
          o_q2m, o_ustar, o_u10m, o_v10m, &
          o_wind10m, o_wind10max, o_gusts, o_sicf, &
-         o_psol, o_mass, o_qsurf, o_qsol, &
+         o_psol, o_mass, o_qsurf, o_qsol, o_tsoil_deep_land, &
          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_ep,o_epmax_diag, & ! epmax_cape
@@ -353 +353 @@
     USE ocean_slab_mod, ONLY: nslay, tslab, slab_bilg, tice, seaice, &
         slab_ekman,slab_hdiff,slab_gm,dt_ekman, dt_hdiff, dt_gm, dt_qflux
-    USE pbl_surface_mod, ONLY: snow
+    USE pbl_surface_mod, ONLY: snow, ftsoil
     USE indice_sol_mod, ONLY: nbsrf
     USE infotrac_phy, ONLY: nqtot, nqo, type_trac, tname, niadv
@@ -384 +384 @@
     INCLUDE "compbl.h"
     INCLUDE "YOMCST.h"
+    INCLUDE "dimsoil.h"
 
     ! Input
@@ -679 +680 @@
        IF (.NOT. ok_veget) THEN
           CALL histwrite_phy(o_qsol, qsol)
+          CALL histwrite_phy(o_tsoil_deep_land, ftsoil(:, nsoilmx, is_ter))
        ENDIF
 

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

@@ -107 +107 @@
     REAL, intent(out):: dter(:) ! (knon)
     ! Temperature variation in the diffusive microlayer, that is
-    ! subskin temperature minus ocean-air interface temperature. In
+    ! ocean-air interface temperature minus subskin temperature. In
     ! K.