Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (2 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5098 r5101  
    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 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
    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 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
    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 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
    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 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
    495495   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    496496   LOGICAL,           INTENT(INOUT) :: val
Note: See TracChangeset for help on using the changeset viewer.