Changeset 5110 for LMDZ6/branches/Amaury_dev/libf/phydev
- Timestamp:
- Jul 24, 2024, 11:19:08 AM (14 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phydev
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90
r5103 r5110 27 27 SUBROUTINE init_iophy_new(rlat,rlon) 28 28 USE dimphy, only: klon 29 USE mod_phys_lmdz_para, only: gather, bcast, &29 USE lmdz_phys_para, only: gather, bcast, & 30 30 jj_nb, jj_begin, jj_end, ii_begin, ii_end, & 31 31 mpi_size, mpi_rank, klon_mpi, & 32 32 is_sequential, is_south_pole_dyn 33 USE mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, klon_glo33 USE lmdz_grid_phy, only: nbp_lon, nbp_lat, klon_glo 34 34 USE print_control_mod, ONLY: lunout, prt_level 35 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat35 USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat 36 36 USE ioipsl, only: flio_dom_set 37 37 use wxios, only: wxios_domain_param, using_xios … … 140 140 141 141 SUBROUTINE histbeg_phy(name,itau0,zjulian,dtime,nhori,nid_day) 142 USE mod_phys_lmdz_para, only: is_sequential, jj_begin, jj_end, jj_nb142 USE lmdz_phys_para, only: is_sequential, jj_begin, jj_end, jj_nb 143 143 use ioipsl, only: histbeg 144 144 USE print_control_mod, ONLY: prt_level, lunout 145 USE mod_grid_phy_lmdz, ONLY: nbp_lon145 USE lmdz_grid_phy, ONLY: nbp_lon 146 146 implicit none 147 147 … … 170 170 ! SUBROUTINE histbeg_phyxios(name,itau0,zjulian,dtime,ffreq,lev,nhori,nid_day) 171 171 SUBROUTINE histbeg_phyxios(name,ffreq,lev) 172 USE mod_phys_lmdz_para, only: is_using_mpi, is_mpi_root172 USE lmdz_phys_para, only: is_using_mpi, is_mpi_root 173 173 use wxios, only: wxios_add_file 174 174 IMPLICIT NONE … … 200 200 SUBROUTINE histwrite2d_phy(nid,lpoint,name,itau,field) 201 201 USE dimphy, only: klon 202 USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &202 USE lmdz_phys_para, only: Gather_omp, grid1Dto2D_mpi, & 203 203 is_sequential, klon_mpi_begin, klon_mpi_end, & 204 204 jj_nb, klon_mpi 205 205 USE ioipsl, only: histwrite 206 USE mod_grid_phy_lmdz, ONLY: nbp_lon206 USE lmdz_grid_phy, ONLY: nbp_lon 207 207 implicit none 208 208 … … 259 259 SUBROUTINE histwrite3d_phy(nid,lpoint,name,itau,field) 260 260 USE dimphy, only: klon 261 USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &261 USE lmdz_phys_para, only: Gather_omp, grid1Dto2D_mpi, & 262 262 is_sequential, klon_mpi_begin, klon_mpi_end, & 263 263 jj_nb, klon_mpi 264 264 USE ioipsl, only: histwrite 265 USE mod_grid_phy_lmdz, ONLY: nbp_lon265 USE lmdz_grid_phy, ONLY: nbp_lon 266 266 implicit none 267 267 … … 323 323 SUBROUTINE histwrite2d_xios(field_name,field) 324 324 USE dimphy, only: klon 325 USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &325 USE lmdz_phys_para, only: gather_omp, grid1Dto2D_mpi, & 326 326 jj_nb, klon_mpi 327 327 USE lmdz_xios, only: xios_send_field 328 328 USE print_control_mod, ONLY: prt_level, lunout 329 USE mod_grid_phy_lmdz, ONLY: nbp_lon329 USE lmdz_grid_phy, ONLY: nbp_lon 330 330 IMPLICIT NONE 331 331 … … 356 356 SUBROUTINE histwrite3d_xios(field_name, field) 357 357 USE dimphy, only: klon, klev 358 USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &358 USE lmdz_phys_para, only: gather_omp, grid1Dto2D_mpi, & 359 359 jj_nb, klon_mpi 360 360 USE lmdz_xios, only: xios_send_field 361 361 USE print_control_mod, ONLY: prt_level,lunout 362 USE mod_grid_phy_lmdz, ONLY: nbp_lon362 USE lmdz_grid_phy, ONLY: nbp_lon 363 363 364 364 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phydev/phyaqua_mod.F90
r5099 r5110 16 16 17 17 USE phys_state_var_mod, ONLY: phys_state_var_init 18 USE mod_phys_lmdz_para, ONLY: klon_omp18 USE lmdz_phys_para, ONLY: klon_omp 19 19 IMPLICIT NONE 20 20 -
LMDZ6/branches/Amaury_dev/libf/phydev/physiq_mod.F90
r5106 r5110 19 19 USE iophy, ONLY: histbeg_phy,histwrite_phy 20 20 USE ioipsl, ONLY: getin,histvert,histdef,histend,ymds2ju 21 USE mod_phys_lmdz_para, ONLY: jj_nb21 USE lmdz_phys_para, ONLY: jj_nb 22 22 USE phys_state_var_mod, ONLY: phys_state_var_init 23 USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat23 USE lmdz_grid_phy, ONLY: nbp_lon,nbp_lat 24 24 25 25 USE lmdz_xios, ONLY: xios_update_calendar, using_xios
Note: See TracChangeset
for help on using the changeset viewer.