Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_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/phylmdiso/phyetat0_mod.F90 (modified) (1 diff)

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

@@ -11 +11 @@
 
   USE dimphy, only: klon, zmasq, klev
-  USE iophy, ONLY : init_iophy_new
-  USE ocean_cpl_mod,    ONLY : ocean_cpl_init
-  USE fonte_neige_mod,  ONLY : fonte_neige_init
-  USE pbl_surface_mod,  ONLY : pbl_surface_init
+  USE iophy, ONLY: init_iophy_new
+  USE ocean_cpl_mod,    ONLY: ocean_cpl_init
+  USE fonte_neige_mod,  ONLY: fonte_neige_init
+  USE pbl_surface_mod,  ONLY: pbl_surface_init
 #ifdef ISO
-  USE fonte_neige_mod,  ONLY : fonte_neige_init_iso
-  USE pbl_surface_mod,  ONLY : pbl_surface_init_iso
-#endif
-  USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
-  USE surface_data,     ONLY : type_ocean, version_ocean
-  USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, phys_tstep, &
+  USE fonte_neige_mod,  ONLY: fonte_neige_init_iso
+  USE pbl_surface_mod,  ONLY: pbl_surface_init_iso
+#endif
+  USE phyetat0_get_mod, ONLY: phyetat0_get, phyetat0_srf
+  USE surface_data,     ONLY: type_ocean, version_ocean
+  USE phys_state_var_mod, ONLY: ancien_ok, clwcon, detr_therm, phys_tstep, &
        qsol, fevap, z0m, z0h, agesno, &
        du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &