Changeset 3332 for LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

Timestamp:

May 24, 2018, 3:45:24 PM (7 years ago)

Author:

lguez

Message:

Remove NetCDF variable SWdownOR from output files. It seems
meaningless to divide the net radiation over all shortwave bands
(solsw) by the mean transmission (1 - albsol1) over part of the
shortwave bands. SWdownOR can be over 4000 W m-2 over ice. The NetCDF
variable containing the correct surface downward shortwave flux is
SWdnSFC. Lower the level of output of SWdnSFC in histins.nc from 10 to
2 so that it replaces SWdownOR.

File:

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

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -155 +155 @@
          o_rh2m, o_rh2m_min, o_rh2m_max, &
          o_qsat2m, o_tpot, o_tpote, o_SWnetOR, &
-         o_SWdownOR, o_LWdownOR, o_snowl, &
+         o_LWdownOR, o_snowl, &
          o_solldown, o_dtsvdfo, o_dtsvdft, &
          o_dtsvdfg, o_dtsvdfi, o_z0m, o_z0h, o_od550aer, &
@@ -982 +982 @@
        IF (vars_defined) zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
        CALL histwrite_phy(o_SWnetOR,  zx_tmp_fi2d)
-       IF (vars_defined) zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon))
-       CALL histwrite_phy(o_SWdownOR,  zx_tmp_fi2d)
        CALL histwrite_phy(o_LWdownOR, sollwdown)
        CALL histwrite_phy(o_snowl, snow_lsc)