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

Timestamp:

Feb 11, 2021, 3:29:29 PM (3 years ago)

Author:

acozic

Message:

add parameters to define unstructured grid on Inca model

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, nbp_lev, communicator)
-
-    USE infotrac, ONLY: type_trac
+  SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator)
+
+!    USE infotrac, ONLY: type_trac
 
   IMPLICIT NONE
@@ -59 +59 @@
     INTEGER,INTENT(IN) :: nbp_lev
     INTEGER,INTENT(IN) :: communicator
+    INTEGER,INTENT(IN) :: grid_type 
+    INTEGER,INTENT(IN) :: nvertex 
     
     INTEGER,ALLOCATABLE :: distrib(:)
@@ -184 +186 @@
     CALL Print_module_data
 
-    IF (type_trac == 'inca') THEN
+!    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
+            distrib,nvertex, grid_type,communicator)
+#endif
+!    ENDIF
     
   END SUBROUTINE Init_phys_lmdz_mpi_data