Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

@@ -55 +55 @@
 
     USE dimphy
-    USE infotrac_phy, ONLY : nbtr, type_trac
-    USE tracco2i_mod, ONLY : tracco2i_init
+    USE infotrac_phy, ONLY: nbtr, type_trac
+    USE tracco2i_mod, ONLY: tracco2i_init
 
     IMPLICIT NONE
@@ -120 +120 @@
 
     USE ioipsl
-    USE phys_cal_mod, only : hour
+    USE phys_cal_mod, ONLY: hour
     USE dimphy
-    USE infotrac_phy, ONLY : nbtr, nqCO2, type_trac, conv_flg, pbl_flg
-    USE strings_mod, ONLY : int2str
+    USE infotrac_phy, ONLY: nbtr, nqCO2, type_trac, conv_flg, pbl_flg
+    USE strings_mod, ONLY: int2str
     USE mod_grid_phy_lmdz
     USE mod_phys_lmdz_para
@@ -131 +131 @@
     USE tracreprobus_mod
     USE indice_sol_mod
-    USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
-    USE print_control_mod, ONLY : lunout
-    USE aero_mod, ONLY : naero_grp
-    USE lmdz_thermcell_dq, ONLY : thermcell_dq
+    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
+    USE print_control_mod, ONLY: lunout
+    USE aero_mod, ONLY: naero_grp
+    USE lmdz_thermcell_dq, ONLY: thermcell_dq
 
     USE tracco2i_mod
 
     USE traccoag_mod
-    USE phys_local_var_mod, ONLY : mdw
-    USE phys_local_var_mod, ONLY : budg_dep_dry_ocs, budg_dep_wet_ocs
-    USE phys_local_var_mod, ONLY : budg_dep_dry_so2, budg_dep_wet_so2
-    USE phys_local_var_mod, ONLY : budg_dep_dry_h2so4, budg_dep_wet_h2so4
-    USE phys_local_var_mod, ONLY : budg_dep_dry_part, budg_dep_wet_part
-    USE infotrac_phy, ONLY : nbtr_sulgas, id_OCS_strat, id_SO2_strat, id_H2SO4_strat
-    USE strataer_nuc_mod, ONLY : tracstrataer_init
+    USE phys_local_var_mod, ONLY: mdw
+    USE phys_local_var_mod, ONLY: budg_dep_dry_ocs, budg_dep_wet_ocs
+    USE phys_local_var_mod, ONLY: budg_dep_dry_so2, budg_dep_wet_so2
+    USE phys_local_var_mod, ONLY: budg_dep_dry_h2so4, budg_dep_wet_h2so4
+    USE phys_local_var_mod, ONLY: budg_dep_dry_part, budg_dep_wet_part
+    USE infotrac_phy, ONLY: nbtr_sulgas, id_OCS_strat, id_SO2_strat, id_H2SO4_strat
+    USE strataer_nuc_mod, ONLY: tracstrataer_init
     USE aerophys
-    USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
+    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
     USE lmdz_yomcst