Changeset 4127 for LMDZ6/trunk/libf/phy_common

Timestamp:

Apr 20, 2022, 11:01:09 AM (3 years ago)

Author:

acozic

Message:

modify lmdz code in order to transfer to inca model all infomations necessary for the coupling with dynamico

Location:

LMDZ6/trunk/libf/phy_common

Files:

• mod_phys_lmdz_mpi_data.F90 (modified) (3 diffs)
• mod_phys_lmdz_para.F90 (modified) (1 diff)
• physics_distribution_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -46 +46 @@
 CONTAINS
   
-  SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, communicator)
+  SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator)
+
   IMPLICIT NONE
 #ifdef CPP_MPI
@@ -54 +55 @@
     INTEGER,INTENT(IN) :: nbp_lon
     INTEGER,INTENT(IN) :: nbp_lat
+    INTEGER,INTENT(IN) :: nbp_lev
     INTEGER,INTENT(IN) :: communicator
+    INTEGER,INTENT(IN) :: grid_type 
+    INTEGER,INTENT(IN) :: nvertex 
     
     INTEGER,ALLOCATABLE :: distrib(:)
@@ -179 +183 @@
    
     CALL Print_module_data
+
+#ifdef INCA
+       CALL init_inca_para( &
+            nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
+            distrib,nvertex, grid_type,communicator)
+#endif
     
   END SUBROUTINE Init_phys_lmdz_mpi_data

LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_para.F90

@@ -17 +17 @@
 CONTAINS
 
-  SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,communicator)
+  SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,nbp_lev,grid_type, nvertex,communicator)
   IMPLICIT NONE
     INTEGER,INTENT(in) :: nbp
     INTEGER,INTENT(in) :: nbp_lon
     INTEGER,INTENT(in) :: nbp_lat
+    INTEGER,INTENT(in) :: nbp_lev
     INTEGER,INTENT(in) :: communicator
+    INTEGER,INTENT(IN) :: grid_type 
+    INTEGER,INTENT(IN) :: nvertex 
 
-    CALL Init_phys_lmdz_mpi_data(nbp,nbp_lon,nbp_lat,communicator)
+    CALL Init_phys_lmdz_mpi_data(nbp,nbp_lon,nbp_lat,nbp_lev, grid_type, nvertex,communicator)
 !$OMP PARALLEL
     CALL Init_phys_lmdz_omp_data(klon_mpi)

LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

@@ -29 +29 @@
 
     CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
-    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat, communicator)
+    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
 !$OMP PARALLEL
     CALL init_dimphy(klon_omp,nbp_lev)
+
+#ifdef INCA
+       CALL Init_inca_dim(klon_omp,nbp_lev)
+#endif
 
 ! Initialization of Reprobus