Changeset 5112 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Jul 24, 2024, 12:45:32 PM (4 months ago)

Author:

abarral

Message:

Rename modules in phy_common from *_mod > lmdz_*

File:

• LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90

@@ -95 +95 @@
 
     SUBROUTINE wxios_init(xios_ctx_name, locom, outcom, type_ocean)
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         IMPLICIT NONE
 
@@ -137 +137 @@
 
     SUBROUTINE wxios_context_init()
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         USE lmdz_phys_mpi_data, ONLY: COMM_LMDZ_PHY
         IMPLICIT NONE
@@ -291 +291 @@
 
     SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure, ini_an, ini_mois, ini_jour, ini_heure)
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         USE lmdz_abort_physic, ONLY: abort_physic
         IMPLICIT NONE
@@ -365 +365 @@
                                      is_sequential, is_south_pole_dyn
        USE lmdz_grid_phy, only: nbp_lon, nbp_lat, klon_glo
-       USE print_control_mod, ONLY: prt_level, lunout
-       USE geometry_mod
+       USE lmdz_print_control, ONLY: prt_level, lunout
+       USE lmdz_geometry
 
        IMPLICIT NONE
@@ -447 +447 @@
 
     SUBROUTINE wxios_domain_param_unstructured(dom_id)
-        USE geometry_mod, ONLY: longitude, latitude, boundslon, boundslat,ind_cell_glo
+        USE lmdz_geometry, ONLY: longitude, latitude, boundslon, boundslat,ind_cell_glo
         USE lmdz_grid_phy, ONLY: nvertex, klon_glo
         USE lmdz_phys_para
         USE nrtype, ONLY: PI
-        USE ioipsl_getin_p_mod, ONLY: getin_p
+        USE lmdz_ioipsl_getin_p, ONLY: getin_p
         IMPLICIT NONE
         CHARACTER(len=*),INTENT(IN) :: dom_id ! domain identifier
@@ -502 +502 @@
     SUBROUTINE wxios_add_vaxis(axis_id, axis_size, axis_value,     &
                                positif, bnds)
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         IMPLICIT NONE
 
@@ -559 +559 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     SUBROUTINE wxios_add_file(fname, ffreq, flvl)
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         IMPLICIT NONE
 
@@ -643 +643 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op, nam_axvert)
-        USE print_control_mod, ONLY: prt_level, lunout
+        USE lmdz_print_control, ONLY: prt_level, lunout
         IMPLICIT NONE