Changeset 3888 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

May 5, 2021, 12:50:37 PM (3 years ago)

Author:

jyg

Message:

New provisional version of the splitting of the
diffusive boundary layer into inwake and offwake
PBLs. The splitting of the diffuse BL should NOT
be activated yet for general purpose simulations.

The splitting is activated by:
mod(iflag_pbl_split,10)=1 for the option with
fixed surface temperature and
mod(iflag_pbl_split,10)=2 for the option with
coupled surface temperature.

iflag_pbl_split=0 ==> no splittingat all.
iflag_pbl_split=10 ==> splitting of thermals.
iflag_pbl_split=11 ==> splitting of thermals and
of vertical diffusion (fixed surf. temp.).
iflag_pbl_split=12 ==> splitting of thermals and
of vertical diffusion (coupled surf. temp.).

File:

• LMDZ6/trunk/libf/phylmd/phyredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -12 +12 @@
   USE fonte_neige_mod,  ONLY : fonte_neige_final
   USE pbl_surface_mod,  ONLY : pbl_surface_final
-  USE phys_state_var_mod, ONLY: radpas, zmasq, pctsrf, ftsol, falb_dir,      &
+  USE phys_state_var_mod, ONLY: radpas, zmasq, pctsrf,                       &
+                                ftsol, beta_aridity, delta_tsurf, falb_dir,  &
                                 falb_dif, qsol, fevap, radsol, solsw, sollw, &
                                 sollwdown, rain_fall, snow_fall, z0m, z0h,   &
@@ -157 +158 @@
     END IF
 
+!    Surface variables 
     CALL put_field_srf1(pass,"TS","Temperature",ftsol(:,:))
+
+    CALL put_field_srf1(pass,"DELTA_TS","w-x surface temperature difference", delta_tsurf(:,:))
+
+    CALL put_field_srf1(pass,"BETA_S","Aridity factor", beta_aridity(:,:))
+!    End surface variables
 
 ! ================== Albedo =======================================