Changeset 5267 for LMDZ6/trunk/libf/dyn3d/abort_gcm.F90

Timestamp:

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

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

File:

• LMDZ6/trunk/libf/dyn3d/abort_gcm.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/abort_gcm.F90

@@ -6 +6 @@
 SUBROUTINE abort_gcm(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
   !! ug Pour les sorties XIOS
   USE wxios
@@ -36 +31 @@
   ENDIF
 
-#ifdef CPP_IOIPSL
   call histclo
   call restclo
-#endif
   call getin_dump
   ! call histclo(2)