Changeset 3626 for trunk/ICOSA_LMDZ/src/phymars

Timestamp:

Feb 13, 2025, 5:12:07 PM (6 months ago)

Author:

emillour

Message:

Dynamico-Mars:
Cleanup: add some "only" clauses to all the "use" to help
identifying connections between Dynamico, the interface and the physics.
EM

File:

• trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90 (modified) (7 diffs)

trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90

@@ -49 +49 @@
 
   SUBROUTINE initialize_physics
-  USE distrib_icosa_lmdz_mod, ONLY : init_distrib_icosa_lmdz, transfer_icosa_to_lmdz
 ! from dynamico
-  USE domain_mod
-  USE dimensions
-  USE mpi_mod
-  USE mpipara
-  USE disvert_mod
-  USE xios_mod
+  USE prec, ONLY: rstd
+  USE field_mod, ONLY: type_real, field_t, allocate_field, &
+                       ASSIGNMENT(=)
+  USE spherical_geom_mod, ONLY: xyz2lonlat
+  USE domain_mod, ONLY: ndomain, domain
+  USE dimensions, ONLY: ii_begin, ii_end, jj_begin, jj_end, iim, &
+                        z_rup, z_up, z_lup, z_rdown, z_down, z_ldown, &
+                        swap_dimensions
+  USE geometry, ONLY: xyz_v, swap_geometry
+  USE grid_param, ONLY: llm, nqtot
+  USE mpi_mod, ONLY: MPI_INTEGER, MPI_SUM
+  USE mpipara, ONLY: comm_icosa, ierr
+  USE transfert_mod, ONLY: req_i0, init_message
+  USE xios_mod, ONLY: xios_set_context
   USE time_mod , init_time_icosa=> init_time 
-  USE transfert_mod
   
 ! from LMDZ
   USE mod_grid_phy_lmdz, ONLY : unstructured
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
-  USE transfert_mod
   USE physics_distribution_mod, ONLY : init_physics_distribution
    
@@ -153 +158 @@
 
   SUBROUTINE initialize_physics_omp
-  USE distrib_icosa_lmdz_mod, ONLY : init_distrib_icosa_lmdz, transfer_icosa_to_lmdz
+! from interface
+  USE distrib_icosa_lmdz_mod, ONLY : init_distrib_icosa_lmdz, &
+                                     transfer_icosa_to_lmdz
 ! from dynamico
-  USE domain_mod
-  USE dimensions
-  USE mpi_mod
-  USE mpipara
-  USE disvert_mod
-  USE xios_mod
-  USE time_mod , ONLY: init_time_icosa=> init_time, dt, itaumax, itau_physics
-  USE omp_para
+  USE prec, ONLY: rstd
+  USE field_mod, ONLY: type_real, field_t, allocate_field, deallocate_field
+  USE domain_mod, ONLY: ndomain, domain, assigned_domain
+  USE dimensions, ONLY: ii_begin, ii_end, jj_begin, jj_end, iim, &
+                        swap_dimensions
+  USE geometry, ONLY: geom, swap_geometry
+  USE grid_param, ONLY: llm, nqtot
+  USE mpipara, ONLY: is_mpi_root, ierr
+  USE disvert_mod, ONLY: ap, bp, presnivs
+  USE time_mod , ONLY: init_time_icosa=> init_time, &
+                       dt, itaumax, itau_physics, ndays
+  USE omp_para, ONLY: is_omp_level_master
+  USE transfert_mod, ONLY: bcast
+  USE getin_mod, ONLY: getin
+  USE earth_const, ONLY: cpp, g, kappa, radius, scale_height, preff
 
 ! from LMDZ
@@ -168 +182 @@
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
   USE time_phylmdz_mod, ONLY: init_time_lmdz => init_time
-  USE transfert_mod
   USE physics_distribution_mod, ONLY : init_physics_distribution
   USE dimphy, ONLY: init_dimphy
@@ -176 +189 @@
   use comgeomfi_h, only: ini_fillgeom
   use conf_phys_mod, only: conf_phys
- 
+
+! other 
   USE netcdf  
   
@@ -433 +447 @@
 
   SUBROUTINE physics
-  USE icosa
-  USE time_mod
-  USE disvert_mod
-  USE transfert_mod
-  USE mpipara
-  USE xios_mod
-  USE wxios
-  USE trace
+! from dynamico
+  USE prec, ONLY: rstd
+  USE dimensions, ONLY: ii_begin, ii_end, jj_begin, jj_end, iim,  &
+                        z_rup, z_up, z_lup, z_rdown, z_down, z_ldown, &
+                        t_right, t_rup, t_lup, t_ldown, &
+                        u_right, u_rup, u_lup, u_left, u_ldown, u_rdown, &
+                        swap_dimensions
+  USE disvert_mod, ONLY: ap, bp
+  USE transfert_mod, ONLY: req_e1_vect, init_message, transfert_message, &
+                           send_message, wait_message
+  USE metric_var_mod, ONLY: right, rup, lup, left, ldown, rdown
+  USE geometry, ONLY: xyz_v, elon_i, elat_i, ep_e, centroid, le, ne, Ai, &
+                      swap_geometry
+  USE field_mod, ONLY: ASSIGNMENT(=)
+  USE grid_param, ONLY: llm, nqtot
+  USE earth_const, ONLY: cpp, g, kappa, preff
+  USE xios_mod, ONLY: xios_set_context
+  USE time_mod, ONLY: itau_physics, itaumax, itau0, dt
+  USE domain_mod, ONLY: ndomain, domain, assigned_domain
+  USE trace, ONLY: trace_start, trace_end
   USE distrib_icosa_lmdz_mod, ONLY : transfer_icosa_to_lmdz, transfer_lmdz_to_icosa
   USE physics_external_mod, ONLY : it, f_phis, f_ps, f_theta_rhodz, f_u, f_wflux, f_q 
-  USE write_field_mod
-  USE checksum_mod
+
 ! from LMDZ
+  USE wxios, ONLY: wxios_set_context
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
   USE geometry_mod, ONLY : cell_area
@@ -719 +745 @@
 
     SUBROUTINE grid_icosa_to_physics
-    USE pression_mod
-    USE exner_mod
-    USE theta2theta_rhodz_mod
-    USE geopotential_mod
-    USE omp_para
+! from dynamico
+    USE omp_para, ONLY: is_omp_first_level, ll_begin, ll_beginp1, &
+                        ll_end, ll_endp1
     IMPLICIT NONE
     
@@ -844 +868 @@
 
     SUBROUTINE grid_physics_to_icosa
-    USE theta2theta_rhodz_mod
-    USE omp_para
+! from dynamico
+    USE omp_para, ONLY: is_omp_first_level, ll_begin, &
+                        ll_end, ll_endp1
     IMPLICIT NONE
       INTEGER :: i,j,ij,l,iq