Changeset 3332 for LMDZ6/trunk/libf


Ignore:
Timestamp:
May 24, 2018, 3:45:24 PM (6 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.

Location:
LMDZ6/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r2754 r3332  
    155155         o_rh2m, o_rh2m_min, o_rh2m_max, &
    156156         o_qsat2m, o_tpot, o_tpote, o_SWnetOR, &
    157          o_SWdownOR, o_LWdownOR, o_snowl, &
     157         o_LWdownOR, o_snowl, &
    158158         o_solldown, o_dtsvdfo, o_dtsvdft, &
    159159         o_dtsvdfg, o_dtsvdfi, o_z0m, o_z0h, o_od550aer, &
    … …  
    982982       IF (vars_defined) zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
    983983       CALL histwrite_phy(o_SWnetOR,  zx_tmp_fi2d)
    984        IF (vars_defined) zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon))
    985        CALL histwrite_phy(o_SWdownOR,  zx_tmp_fi2d)
    986984       CALL histwrite_phy(o_LWdownOR, sollwdown)
    987985       CALL histwrite_phy(o_snowl, snow_lsc)

  • LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r3257 r3332  
    10711071  TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    10721072    'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 10) /))
    1073   TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    1074     'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 10) /))
    10751073  TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    10761074    'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 10) /))

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3257 r3332  
    101101         o_rh2m, &
    102102         o_qsat2m, o_tpot, o_tpote, o_SWnetOR, &
    103          o_SWdownOR, o_LWdownOR, o_snowl, &
     103         o_LWdownOR, o_snowl, &
    104104         o_solldown, o_dtsvdfo, o_dtsvdft, &
    105105         o_dtsvdfg, o_dtsvdfi, o_z0m, o_z0h,  o_od443aer, o_od550aer, &
    … …  
    12581258       IF (vars_defined) zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
    12591259       CALL histwrite_phy(o_SWnetOR,  zx_tmp_fi2d)
    1260        IF (vars_defined) zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon))
    1261        CALL histwrite_phy(o_SWdownOR,  zx_tmp_fi2d)
    12621260       CALL histwrite_phy(o_LWdownOR, sollwdown)
    12631261       CALL histwrite_phy(o_snowl, snow_lsc)
Note: See TracChangeset for help on using the changeset viewer.