Changeset 3666 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Apr 20, 2020, 12:13:34 PM (4 years ago)

Author:

lfalletti

Message:

Adding changes for Reprobus

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -27 +27 @@
 #ifdef REPROBUS
   USE CHEM_REP, ONLY : Init_chem_rep_phys
+#ifdef CPP_PARA
+  USE parallel_lmdz, ONLY : mpi_size, mpi_rank
+  USE bands, ONLY : distrib_phys
+#endif
+  USE mod_phys_lmdz_omp_data, ONLY: klon_omp
 #endif
   USE control_mod, ONLY: dayref,anneeref,day_step,nday,offline, iphysiq, config_inca
@@ -46 +51 @@
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
-#ifdef REPROBUS
-  USE CHEM_REP, ONLY : Init_chem_rep_phys
-#endif
   IMPLICIT NONE
 
@@ -152 +154 @@
   IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
-    CALL Init_chem_rep_phys(klon_omp,nlayer)
+    call Init_chem_rep_phys(klon_omp,nlayer)
+    call init_reprobus_para( &
+          nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
+          distrib_phys,communicator)
 #endif
   ENDIF
@@ -168 +173 @@
 #endif
   END IF
+  IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+    call init_reprobus_para( &
+          nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
+          distrib_phys,communicator)
+#endif
+  ENDIF
 
 !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)