Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_local_var_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/phylmdiso/phys_local_var_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_local_var_mod.F90

@@ -3 +3 @@
 
 MODULE phys_local_var_mod
-  USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
   ! Variables locales pour effectuer les appels en serie
   !======================================================================
@@ -798 +798 @@
   SUBROUTINE phys_local_var_init
     USE dimphy
-    USE infotrac_phy, ONLY : nbtr, nqtot
-#ifdef ISO
-USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
+    USE infotrac_phy, ONLY: nbtr, nqtot
+#ifdef ISO
+USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
 #endif
     USE aero_mod