Changeset 6132 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Mar 26, 2026, 9:09:01 PM (6 days ago)

Author:

evignon

Message:

suppression de la param hines des sources, devenue totalement obsolete (apres verification avec Francois Lott)

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -33 +33 @@
     USE phystokenc_mod, ONLY: offline
     USE water_int_mod, ONLY: water_int
-    USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf, ok_hines, ok_gwd_rando
+    USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf, ok_gwd_rando
     USE conf_phys_m, ONLY : aerosol_couple, ok_ade, ok_aie, ok_volcan, &
                             flag_aerosol, flag_aerosol_strat, ok_cdnc
@@ -180 +180 @@
          o_duvdf, o_dvvdf, o_duoro, o_dvoro, &
          o_dtoro, o_dulif, o_dvlif, o_dtlif, &
-         o_du_gwd_hines, o_dv_gwd_hines, o_dthin, o_dqch4, o_rsu, &
+         o_dqch4, o_rsu, &
          o_du_gwd_front, o_dv_gwd_front, &
          o_east_gwstress, o_west_gwstress, &
@@ -202 +202 @@
          o_dtr_sat, o_dtr_uscav, o_dtr_wet_cv, o_dtr_wet, & 
          o_trac_cum, o_du_gwd_rando, o_dv_gwd_rando, &
-         o_ustr_gwd_hines,o_vstr_gwd_hines,o_ustr_gwd_rando,o_vstr_gwd_rando, &
+         o_ustr_gwd_rando,o_vstr_gwd_rando, &
          o_ustr_gwd_front,o_vstr_gwd_front, &
          o_sens_prec_liq_oce, o_sens_prec_liq_sic, &
@@ -439 +439 @@
          zw2, fraca, zmax_th, d_q_ajsb, d_t_ec, d_u_vdf, &
          d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, &
-         d_v_lif, d_t_lif, du_gwd_hines, dv_gwd_hines, dt_gwd_hines, &
+         d_v_lif, d_t_lif,  &
          dv_gwd_rando, dv_gwd_front, &
          east_gwstress, west_gwstress, &
@@ -486 +486 @@
          bils_ec,bils_ech, bils_tke, bils_kinetic, bils_latent, bils_enthalp, &
          itau_con, nfiles, clef_files, nid_files, dryaod_diag, &
-         zustr_gwd_hines, zvstr_gwd_hines,zustr_gwd_rando, zvstr_gwd_rando, &
+         zustr_gwd_rando, zvstr_gwd_rando, &
          zustr_gwd_front, zvstr_gwd_front, sza_o,    &
          sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o, &
@@ -2785 +2785 @@
        ENDIF
 
-       IF (ok_hines) THEN
-          IF (vars_defined) zx_tmp_fi3d=du_gwd_hines/pdtphys
-          CALL histwrite_phy(o_du_gwd_hines, zx_tmp_fi3d)
-
-          IF (vars_defined) zx_tmp_fi3d= dv_gwd_hines/pdtphys          
-          CALL histwrite_phy(o_dv_gwd_hines, zx_tmp_fi3d)
-          
-          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dt_gwd_hines(1:klon,1:klev)/pdtphys
-          CALL histwrite_phy(o_dthin, zx_tmp_fi3d)
-          CALL histwrite_phy(o_ustr_gwd_hines, zustr_gwd_hines)
-          CALL histwrite_phy(o_vstr_gwd_hines, zvstr_gwd_hines)
-       ENDIF
-
-       IF (.not. ok_hines .and. ok_gwd_rando) THEN
+       IF (ok_gwd_rando) THEN
           IF (vars_defined)  zx_tmp_fi3d=du_gwd_front / pdtphys
           CALL histwrite_phy(o_du_gwd_front, zx_tmp_fi3d)