Changeset 5112 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

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/phylmdiso/cv3_routines.F90 (modified) (6 diffs)

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

@@ -7 +7 @@
 SUBROUTINE cv3_param(nd, k_upper, delt)
 
-  USE ioipsl_getin_p_mod, ONLY: getin_p
+  USE lmdz_ioipsl_getin_p, ONLY: getin_p
   use lmdz_phys_para
 
@@ -323 +323 @@
   USE lmdz_phys_transfert_para, ONLY: bcast
   USE add_phys_tend_mod, ONLY: fl_cor_ebil
-  USE print_control_mod, ONLY: prt_level
+  USE lmdz_print_control, ONLY: prt_level
   IMPLICIT NONE
 
@@ -1265 +1265 @@
 #endif
           )
-  USE print_control_mod, ONLY: lunout
+  USE lmdz_print_control, ONLY: lunout
 #ifdef ISO
     use infotrac_phy, ONLY: ntraciso=>ntiso
@@ -1463 +1463 @@
 #endif
          )
-  USE print_control_mod, ONLY: prt_level
+  USE lmdz_print_control, ONLY: prt_level
 #ifdef ISO
 use infotrac_phy, ONLY: ntraciso=>ntiso
@@ -3584 +3584 @@
 #endif
                    )
-  USE print_control_mod, ONLY: prt_level, lunout
+  USE lmdz_print_control, ONLY: prt_level, lunout
 #ifdef ISO
     use infotrac_phy, ONLY: ntraciso=>ntiso
@@ -4692 +4692 @@
                           )
 
-    USE print_control_mod, ONLY: lunout, prt_level
+    USE lmdz_print_control, ONLY: lunout, prt_level
     USE add_phys_tend_mod, ONLY: fl_cor_ebil