Changeset 5267 for LMDZ6/trunk/libf/phy_common/abort_physic.F90

Timestamp:

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

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

File:

• LMDZ6/trunk/libf/phy_common/abort_physic.F90 (modified) (3 diffs)

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