Changeset 5024 for LMDZ6/trunk


Ignore:
Timestamp:
Jul 5, 2024, 8:48:15 PM (2 months ago)
Author:
asima
Message:

Adjust phys_output_write_spl_mod.F90 to revs 4737 (absence of wfbilo) and 4703 (some variable declaration moved from phys_local_var_mod.F90 to phys_output_var_mod.F90 )

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r4619 r5024  
    325325         sissnow, runoff, albsol3_lic, evap_pot, &
    326326         t2m, fluxt, fluxlat, fsollw, fsolsw, &
    327          wfbils, wfbilo, cdragm, cdragh, cldl, cldm, &
     327         wfbils, cdragm, cdragh, cldl, cldm, &
    328328         cldh, cldt, JrNt, &
    329329         ! cldljn, cldmjn, cldhjn, cldtjn &
     
    353353         toplwad_aero, toplwad0_aero, sollwad_aero, &
    354354         sollwad0_aero, toplwai_aero, sollwai_aero, &
    355          scdnc, cldncl, reffclws, reffclwc, cldnvi, &
    356          lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
     355         !scdnc, cldncl, reffclws, reffclwc, cldnvi, &
     356         !lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
    357357         ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
    358358!jyg<
     
    377377    USE phys_output_var_mod, ONLY: vars_defined, snow_o, zfra_o, bils_diss, &
    378378         bils_ec,bils_ech, bils_tke, bils_kinetic, bils_latent, bils_enthalp, &
    379          itau_con, nfiles, clef_files, nid_files, zvstr_gwd_rando
     379         itau_con, nfiles, clef_files, nid_files, zvstr_gwd_rando, &
     380         scdnc, cldncl, reffclws, reffclwc, cldnvi, &
     381         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop
    380382    USE ocean_slab_mod, ONLY: tslab, slab_bilg, tice, seaice
    381383    USE pbl_surface_mod, ONLY: snow
     
    721723          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf)
    722724          CALL histwrite_phy(o_wbils_srf(nsrf), zx_tmp_fi2d)
    723           IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf)
    724           CALL histwrite_phy(o_wbilo_srf(nsrf), zx_tmp_fi2d)
    725725
    726726          IF (iflag_pbl > 1) THEN
Note: See TracChangeset for help on using the changeset viewer.