Ignore:
Timestamp:
Jul 24, 2024, 11:19:08 AM (6 months ago)
Author:
abarral
Message:

Rename modules properly (mod_* -> lmdz_*) in phy_common

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

    r5106 r5110  
    3737  USE phys_local_var_mod
    3838  USE phys_state_var_mod
    39   USE mod_grid_phy_lmdz, ONLY: nbp_lev
     39  USE lmdz_grid_phy, ONLY: nbp_lev
    4040#ifdef ISO
    4141  USE infotrac_phy, ONLY: ntraciso=>ntiso

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

    r5105 r5110  
    88
    99  USE ioipsl_getin_p_mod, ONLY: getin_p
    10   use mod_phys_lmdz_para
     10  use lmdz_phys_para
    1111
    1212  IMPLICIT NONE
    … …  
    321321#endif
    322322
    323   USE mod_phys_lmdz_transfert_para, ONLY: bcast
     323  USE lmdz_phys_transfert_para, ONLY: bcast
    324324  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    325325  USE print_control_mod, ONLY: prt_level

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_mod.F90

    r5101 r5110  
    433433SUBROUTINE getinp_s(nam, val, def, lDisp)
    434434   USE ioipsl_getincom, ONLY: getin
    435    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    436    USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    437    USE mod_phys_lmdz_transfert_para, ONLY: bcast
     435   USE lmdz_phys_mpi_data, ONLY:  is_mpi_root
     436   USE lmdz_phys_omp_data, ONLY:  is_omp_root
     437   USE lmdz_phys_transfert_para, ONLY: bcast
    438438   CHARACTER(LEN=*),           INTENT(IN)    :: nam
    439439   CHARACTER(LEN=*),           INTENT(INOUT) :: val
    … …  
    452452SUBROUTINE getinp_i(nam, val, def, lDisp)
    453453   USE ioipsl_getincom, ONLY: getin
    454    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    455    USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    456    USE mod_phys_lmdz_transfert_para, ONLY: bcast
     454   USE lmdz_phys_mpi_data, ONLY:  is_mpi_root
     455   USE lmdz_phys_omp_data, ONLY:  is_omp_root
     456   USE lmdz_phys_transfert_para, ONLY: bcast
    457457   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    458458   INTEGER,           INTENT(INOUT) :: val
    … …  
    471471SUBROUTINE getinp_r(nam, val, def, lDisp)
    472472   USE ioipsl_getincom, ONLY: getin
    473    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    474    USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    475    USE mod_phys_lmdz_transfert_para, ONLY: bcast
     473   USE lmdz_phys_mpi_data, ONLY:  is_mpi_root
     474   USE lmdz_phys_omp_data, ONLY:  is_omp_root
     475   USE lmdz_phys_transfert_para, ONLY: bcast
    476476   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    477477   REAL,              INTENT(INOUT) :: val
    … …  
    490490SUBROUTINE getinp_l(nam, val, def, lDisp)
    491491   USE ioipsl_getincom, ONLY: getin
    492    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    493    USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    494    USE mod_phys_lmdz_transfert_para, ONLY: bcast
     492   USE lmdz_phys_mpi_data, ONLY:  is_mpi_root
     493   USE lmdz_phys_omp_data, ONLY:  is_omp_root
     494   USE lmdz_phys_transfert_para, ONLY: bcast
    495495   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    496496   LOGICAL,           INTENT(INOUT) :: val

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5106 r5110  
    1585215852                 Rland_ice)
    1585315853      USE dimphy, only: klon,klev
    15854       !USE mod_grid_phy_lmdz
    15855       !USE mod_phys_lmdz_para
     15854      !USE lmdz_grid_phy
     15855      !USE lmdz_phys_para
    1585615856      USE iophy
    1585715857      USE phys_state_var_mod, ONLY: q_ancien,xt_ancien,wake_deltaq,wake_deltaxt, &
    … …  
    1602716027
    1602816028      USE dimphy, only: klon,klev
    16029       !USE mod_grid_phy_lmdz
    16030       !USE mod_phys_lmdz_para
     16029      !USE lmdz_grid_phy
     16030      !USE lmdz_phys_para
    1603116031      USE iophy
    1603216032      USE phys_state_var_mod, ONLY: q_ancien,xt_ancien,wake_deltaq,wake_deltaxt, &

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

    r5103 r5110  
    3737
    3838  SUBROUTINE init_limit_read(first_day)
    39   USE mod_grid_phy_lmdz
     39  USE lmdz_grid_phy
    4040  USE surface_data
    41   USE mod_phys_lmdz_para
     41  USE lmdz_phys_para
    4242  USE lmdz_xios
    4343  IMPLICIT NONE
    … …  
    271271
    272272    USE dimphy
    273     USE mod_grid_phy_lmdz
    274     USE mod_phys_lmdz_para
     273    USE lmdz_grid_phy
     274    USE lmdz_phys_para
    275275    USE surface_data, ONLY: type_ocean, ok_veget
    276276    USE netcdf, ONLY:nf90_noerr,nf90_close,nf90_get_var,nf90_inq_varid,nf90_nowrite,&

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_wake.F90

    r5105 r5110  
    3131  USE ioipsl_getin_p_mod, ONLY: getin_p
    3232  USE dimphy
    33   use mod_phys_lmdz_para
     33  use lmdz_phys_para
    3434  USE print_control_mod, ONLY: prt_level
    3535#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

    r5105 r5110  
    3737    USE nrtype, ONLY: pi
    3838!    USE ioipsl
    39     USE mod_phys_lmdz_para, ONLY: is_master
    40     USE mod_phys_lmdz_transfert_para, ONLY: bcast
    41     USE mod_grid_phy_lmdz
     39    USE lmdz_phys_para, ONLY: is_master
     40    USE lmdz_phys_transfert_para, ONLY: bcast
     41    USE lmdz_grid_phy
    4242    USE ioipsl_getin_p_mod, ONLY: getin_p
    4343    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    … …  
    534534      phy_ice, phy_fter, phy_foce, phy_flic, phy_fsic)
    535535
    536     USE mod_phys_lmdz_para, ONLY: is_omp_master, klon_mpi
    537     USE mod_phys_lmdz_transfert_para, ONLY: gather_omp
     536    USE lmdz_phys_para, ONLY: is_omp_master, klon_mpi
     537    USE lmdz_phys_transfert_para, ONLY: gather_omp
    538538    USE lmdz_xios
    539539    IMPLICIT NONE
    … …  
    587587      phy_ice, phy_fter, phy_foce, phy_flic, phy_fsic)
    588588
    589     USE mod_phys_lmdz_para, ONLY: is_master
    590     USE mod_grid_phy_lmdz, ONLY: klon_glo
    591     USE mod_phys_lmdz_transfert_para, ONLY: gather
     589    USE lmdz_phys_para, ONLY: is_master
     590    USE lmdz_grid_phy, ONLY: klon_glo
     591    USE lmdz_phys_transfert_para, ONLY: gather
    592592    USE phys_cal_mod, ONLY: year_len
    593593    USE netcdf, ONLY:nf90_clobber,nf90_close,nf90_noerr,nf90_strerror,nf90_put_att,nf90_def_var,&

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

    r5106 r5110  
    491491                run_off_lic_0)
    492492      USE dimphy
    493       !USE mod_grid_phy_lmdz
    494       !USE mod_phys_lmdz_para
     493      !USE lmdz_grid_phy
     494      !USE lmdz_phys_para
    495495      USE phys_state_var_mod, ONLY: q_ancien,xt_ancien,wake_deltaq,wake_deltaxt, &
    496496        xtrain_fall,xtsnow_fall, ql_ancien,xtl_ancien,qs_ancien,xts_ancien, &

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_output_mod.F90

    r5103 r5110  
    3939    USE ioipsl
    4040    USE phys_cal_mod, ONLY: hour, calend
    41     USE mod_phys_lmdz_para
     41    USE lmdz_phys_para
    4242    !Martin
    4343    USE surface_data, ONLY: landice_opt
    4444    USE phys_output_ctrlout_mod
    45     USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat
     45    USE lmdz_grid_phy, only: klon_glo,nbp_lon,nbp_lat
    4646    USE print_control_mod, ONLY: prt_level,lunout
    4747    USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt, presinter

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5106 r5110  
    4444    USE iophy
    4545    USE limit_read_mod, ONLY: init_limit_read
    46     USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
    47     USE mod_phys_lmdz_mpi_data, only: is_mpi_root
    48     USE mod_phys_lmdz_para
     46    USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
     47    USE lmdz_phys_mpi_data, only: is_mpi_root
     48    USE lmdz_phys_para
    4949    USE netcdf95, only: nf95_close
    5050    USE netcdf, only: nf90_fill_real     ! IM for NMC files
Note: See TracChangeset for help on using the changeset viewer.