Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/nucleation_tstep_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/nucleation_tstep_mod.F90 (modified) (3 diffs)

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

@@ -10 +10 @@
   USE aerophys
   USE infotrac_phy
-  USE strataer_local_var_mod, ONLY : flag_new_nucl
+  USE strataer_local_var_mod, ONLY: flag_new_nucl
   USE lmdz_yomcst
   
@@ -39 +39 @@
   REAL ipr     ! Ion pair production rate (cm-3 s-1) NOT IN USE
 
-  ! call nucleation routine
+  ! CALL nucleation routine
   IF (.NOT.flag_new_nucl) THEN
     ! Use older routine from Hanna Vehkamäki (FMI)
@@ -73 +73 @@
   USE aerophys
   USE infotrac_phy
-  USE strataer_local_var_mod, ONLY : Vbin
+  USE strataer_local_var_mod, ONLY: Vbin
   
   IMPLICIT NONE