Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_nuc_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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/StratAer/strataer_nuc_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_nuc_mod.F90

@@ -10 +10 @@
   SUBROUTINE strataer_nuc_init()
     
-    USE ioipsl_getin_p_mod, ONLY : getin_p
-    USE print_control_mod, ONLY : lunout
-    USE mod_phys_lmdz_para, ONLY : is_master
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+    USE print_control_mod, ONLY: lunout
+    USE mod_phys_lmdz_para, ONLY: is_master
     USE strataer_local_var_mod, ONLY: ALPH2SO4,flag_nuc_rate_box,nuclat_min,nuclat_max, &
          nucpres_min,nucpres_max
@@ -50 +50 @@
     
     USE infotrac_phy, ONLY: nbtr, nbtr_sulgas, id_H2SO4_strat
-    USE ioipsl, ONLY : getin
-    USE print_control_mod, ONLY : lunout
+    USE ioipsl, ONLY: getin
+    USE print_control_mod, ONLY: lunout
     
     ! Output variables