Changeset 5267 for LMDZ6/trunk/libf/phy_common

Timestamp:

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

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

Location:

LMDZ6/trunk/libf/phy_common

Files:

• abort_physic.F90 (modified) (3 diffs)
• ioipsl_getin_p_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phy_common/abort_physic.F90

@@ -2 +2 @@
       SUBROUTINE abort_physic(modname, message, ierr)
      
-#ifdef CPP_IOIPSL
       USE IOIPSL
-#else
-! if not using IOIPSL, we still need to use (a local version of) getin_dump
-      USE ioipsl_getincom
-#endif
+
       USE mod_phys_lmdz_para
       USE print_control_mod, ONLY: lunout
@@ -24 +20 @@
 
       write(lunout,*) 'in abort_physic'
-#ifdef CPP_IOIPSL
 !$OMP MASTER
       call histclo
@@ -32 +27 @@
       endif
 !$OMP END MASTER
-#endif
 
       write(lunout,*) 'Stopping in ', modname

LMDZ6/trunk/libf/phy_common/ioipsl_getin_p_mod.F90

@@ -5 +5 @@
 ! To use getin in a parallel context
 !---------------------------------------------------------------------
-#ifdef CPP_IOIPSL
 USE ioipsl, ONLY: getin
-#else
-USE ioipsl_getincom, ONLY: getin
-#endif
 USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
 USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root