Changeset 5267 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Oct 23, 2024, 5:34:46 PM (5 weeks ago)

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• isotopes_mod.F90 (modified) (4 diffs)
• physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90

@@ -379 +379 @@
 
 SUBROUTINE getinp_s(nam, val, def, lDisp)
-   USE ioipsl_getincom, ONLY: getin
+   USE ioipsl, ONLY: getin
    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
@@ -398 +398 @@
 
 SUBROUTINE getinp_i(nam, val, def, lDisp)
-   USE ioipsl_getincom, ONLY: getin
+   USE ioipsl, ONLY: getin
    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
@@ -417 +417 @@
 
 SUBROUTINE getinp_r(nam, val, def, lDisp)
-   USE ioipsl_getincom, ONLY: getin
+   USE ioipsl, ONLY: getin
    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
@@ -436 +436 @@
 
 SUBROUTINE getinp_l(nam, val, def, lDisp)
-   USE ioipsl_getincom, ONLY: getin
+   USE ioipsl, ONLY: getin
    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1900 +1900 @@
           ENDIF
 
-#ifdef CPP_IOIPSL
-
        !$OMP MASTER
        ! FH : if ok_sync=.true. , the time axis is written at each time step
@@ -1932 +1930 @@
 #endif
 
-#endif
        ecrit_reg = ecrit_reg * un_jour
        ecrit_tra = ecrit_tra * un_jour
@@ -7309 +7306 @@
     !   Ecriture des sorties
     !=============================================================
-#ifdef CPP_IOIPSL
 
     ! Recupere des varibles calcule dans differents modules
@@ -7373 +7369 @@
 #endif
 
-#endif
     ! Petit appelle de sorties pour accompagner le travail sur phyex
     if ( iflag_physiq == 1 ) then