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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.