Changeset 3820 for LMDZ6/branches/LMDZ-INCA-Dyn/libf/phy_common/mod_phys_lmdz_mpi_data.F90

Timestamp:

Feb 4, 2021, 3:59:25 PM (3 years ago)

Author:

lmdz-users

Message:

to be able to work with dynamico's dynamic, we modify call for the inca initialisation

File:

• LMDZ6/branches/LMDZ-INCA-Dyn/libf/phy_common/mod_phys_lmdz_mpi_data.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZ-INCA-Dyn/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, communicator)
+
+    USE infotrac, ONLY: type_trac
+
   IMPLICIT NONE
 #ifdef CPP_MPI
@@ -54 +57 @@
     INTEGER,INTENT(IN) :: nbp_lon
     INTEGER,INTENT(IN) :: nbp_lat
+    INTEGER,INTENT(IN) :: nbp_lev
     INTEGER,INTENT(IN) :: communicator
     
@@ -179 +183 @@
    
     CALL Print_module_data
+
+    IF (type_trac == 'inca') THEN
+#ifdef INCA
+       CALL init_inca_para( &
+            nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
+            distrib,communicator)
+#endif
+    ENDIF
     
   END SUBROUTINE Init_phys_lmdz_mpi_data