Changeset 2255 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Apr 3, 2015, 3:51:31 PM (9 years ago)

Author:

jyg

Message:

Changes to pbl_surface and other routines concerning split/no-split.
+ pbl_surface_mod.F90: call cdrag for (w) region.
+ phyredem.F90: write wake_delta_pbl_TKE.
+ phys_output_write_mod.F90: control output of wake_delta_pbl_TKE by
IF(iflag_pbl_split>=1).
+ lmdz1d.F90: initialize wake_delta_pbl_TKE=0.
+ phys_output_ctrlout_mod.F90: suppression of accents in some variable
attributes.
+ cva_driver.F90: suppression of a print introduced in version 2253.

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -569 +569 @@
           ENDIF
 !jyg<
-          IF (iflag_pbl > 1) THEN
+          IF (iflag_pbl > 1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) THEN
              CALL histwrite_phy(o_dltpbltke_srf(nsrf), wake_delta_pbl_TKE(:,1:klev,nsrf))
           ENDIF