- Timestamp:
- Dec 6, 2022, 12:01:16 AM (19 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phy_common/physics_distribution_mod.F90
r3605 r4368 13 13 USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz 14 14 USE dimphy, ONLY : Init_dimphy 15 USE infotrac_phy, ONLY : type _trac15 USE infotrac_phy, ONLY : types_trac 16 16 #ifdef REPROBUS 17 17 USE CHEM_REP, ONLY : Init_chem_rep_phys … … 29 29 30 30 CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev) 31 CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat, communicator)31 CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator) 32 32 !$OMP PARALLEL 33 33 CALL init_dimphy(klon_omp,nbp_lev) 34 34 35 #ifdef INCA 36 CALL Init_inca_dim(klon_omp,nbp_lev) 37 #endif 38 39 #ifdef REPROBUS 35 40 ! Initialization of Reprobus 36 IF (type_trac == 'repr') THEN 37 #ifdef REPROBUS 38 CALL Init_chem_rep_phys(klon_omp,nbp_lev) 41 IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev) 39 42 #endif 40 END IF41 43 42 44 !$OMP END PARALLEL … … 48 50 ! USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev 49 51 ! USE dimphy, ONLY : Init_dimphy 50 ! USE infotrac_phy, ONLY : type _trac52 ! USE infotrac_phy, ONLY : types_trac 51 53 !#ifdef REPROBUS 52 54 ! USE CHEM_REP, ONLY : Init_chem_rep_phys … … 67 69 ! CALL Init_dimphy(klon_omp,nbp_lev) 68 70 ! 71 !#ifdef REPROBUS 69 72 !! Initialization of Reprobus 70 ! IF (type_trac == 'repr') THEN 71 !#ifdef REPROBUS 72 ! CALL Init_chem_rep_phys(klon_omp,nbp_lev) 73 ! IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev) 74 ! END IF 73 75 !#endif 74 ! END IF75 76 ! 76 77 !!$OMP END PARALLEL
Note: See TracChangeset
for help on using the changeset viewer.