Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_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/surf_ocean_mod.F90 (modified) (1 diff)

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

@@ -32 +32 @@
     USE dimphy, ONLY: klon, zmasq
     USE surface_data, ONLY     : type_ocean
-    USE ocean_forced_mod, ONLY : ocean_forced_noice
+    USE ocean_forced_mod, ONLY: ocean_forced_noice
     USE ocean_slab_mod, ONLY   : ocean_slab_noice
     USE ocean_cpl_mod, ONLY    : ocean_cpl_noice
-    USE indice_sol_mod, ONLY : nbsrf, is_oce
-#ifdef ISO
-    USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
+    USE indice_sol_mod, ONLY: nbsrf, is_oce
+#ifdef ISO
+    USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
 #ifdef ISOVERIF
     USE isotopes_mod, ONLY: iso_eau,ridicule