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

Timestamp:

Jul 5, 2024, 8:48:15 PM (4 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:

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

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

@@ -325 +325 @@
          sissnow, runoff, albsol3_lic, evap_pot, &
          t2m, fluxt, fluxlat, fsollw, fsolsw, &
-         wfbils, wfbilo, cdragm, cdragh, cldl, cldm, &
+         wfbils, cdragm, cdragh, cldl, cldm, &
          cldh, cldt, JrNt, &
          ! cldljn, cldmjn, cldhjn, cldtjn &
@@ -353 +353 @@
          toplwad_aero, toplwad0_aero, sollwad_aero, &
          sollwad0_aero, toplwai_aero, sollwai_aero, &
-         scdnc, cldncl, reffclws, reffclwc, cldnvi, &
-         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
+         !scdnc, cldncl, reffclws, reffclwc, cldnvi, &
+         !lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
          ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
 !jyg<
@@ -377 +377 @@
     USE phys_output_var_mod, ONLY: vars_defined, snow_o, zfra_o, bils_diss, &
          bils_ec,bils_ech, bils_tke, bils_kinetic, bils_latent, bils_enthalp, &
-         itau_con, nfiles, clef_files, nid_files, zvstr_gwd_rando
+         itau_con, nfiles, clef_files, nid_files, zvstr_gwd_rando, &
+         scdnc, cldncl, reffclws, reffclwc, cldnvi, &
+         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop
     USE ocean_slab_mod, ONLY: tslab, slab_bilg, tice, seaice
     USE pbl_surface_mod, ONLY: snow
@@ -721 +723 @@
           IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf)
           CALL histwrite_phy(o_wbils_srf(nsrf), zx_tmp_fi2d)
-          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf)
-          CALL histwrite_phy(o_wbilo_srf(nsrf), zx_tmp_fi2d)
 
           IF (iflag_pbl > 1) THEN