Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd
- Timestamp:
- Sep 11, 2024, 4:27:07 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
r5182 r5185 17 17 USE lmdz_infotrac, ONLY: nbtr, type_trac 18 18 19 #ifdef REPROBUS 20 USE CHEM_REP, ONLY: Init_chem_rep_phys 19 USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_phys 21 20 #ifdef CPP_PARA 22 21 USE parallel_lmdz, ONLY: mpi_size, mpi_rank 23 22 USE bands, ONLY: distrib_phys 24 23 #endif 25 USE lmdz_phys_omp_data, ONLY: klon_omp 26 #endif 24 USE lmdz_phys_omp_data, ONLY: klon_omp 27 25 USE control_mod, ONLY: dayref, anneeref, day_step, nday, offline, iphysiq 28 26 USE inifis_mod, ONLY: inifis … … 44 42 USE lmdz_comgeom 45 43 USE lmdz_tracstoke 44 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS 46 45 47 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm48 USE lmdz_paramet46 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 47 USE lmdz_paramet 49 48 IMPLICIT NONE 50 49 … … 53 52 ! geometrical arrays for the physics 54 53 ! ======================================================================= 55 56 57 58 54 59 55 REAL, INTENT (IN) :: prad ! radius of the planet (m) … … 137 133 ! Initializations for Reprobus 138 134 IF (type_trac == 'repr') THEN 139 #ifdef REPROBUS 140 CALL Init_chem_rep_phys(klon_omp,nlayer)141 CALL init_reprobus_para(&142 nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &143 distrib_phys,communicator)144 #endif 135 IF (CPPKEY_REPROBUS) THEN 136 CALL Init_chem_rep_phys(klon_omp, nlayer) 137 CALL init_reprobus_para(& 138 nbp_lon, nbp_lat, nbp_lev, klon_glo, mpi_size, & 139 distrib_phys, communicator) 140 END IF 145 141 ENDIF 146 142 !$OMP END PARALLEL 147 143 148 144 IF (type_trac == 'repr') THEN 149 #ifdef REPROBUS 150 CALL init_reprobus_para(&151 nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &152 distrib_phys,communicator)153 #endif 145 IF (CPPKEY_REPROBUS) THEN 146 CALL init_reprobus_para(& 147 nbp_lon, nbp_lat, nbp_lev, klon_glo, mpi_size, & 148 distrib_phys, communicator) 149 END IF 154 150 ENDIF 155 151
Note: See TracChangeset
for help on using the changeset viewer.