Changeset 5310 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Nov 1, 2024, 1:05:47 PM (4 months ago)

Author:

abarral

Message:

unify abort_gcm
rename wxios -> wxios_mod

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• phyetat0_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -48 +48 @@
   USE ocean_slab_mod,   ONLY: nslay, tslab, seaice, tice, ocean_slab_init
   USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy
-  USE wxios, ONLY: missing_val_xios => missing_val, using_xios
+  use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios
   use netcdf, only: missing_val_netcdf => nf90_fill_real
   use config_ocean_skin_m, only: activate_ocean_skin

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -74 +74 @@
     USE vampir
     USE write_field_phy
-    USE wxios, ONLY: g_ctx, wxios_set_context
+    use wxios_mod, ONLY: g_ctx, wxios_set_context
     USE lmdz_lscp, ONLY : lscp
     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop
@@ -131 +131 @@
     USE lmdz_xios, ONLY: xios_get_field_attr, xios_field_is_active, xios_context
     USE lmdz_xios, ONLY: xios_set_current_context
-    USE wxios, ONLY: missing_val, using_xios
+    use wxios_mod, ONLY: missing_val, using_xios
 
 #ifndef CPP_XIOS