Changeset 5267 for LMDZ6/trunk/libf/dyn3d_common/inithist.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/dyn3d_common/inithist.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3d_common/inithist.F90

@@ -4 +4 @@
 subroutine inithist(day0,anne0,tstep,t_ops,t_wrt)
 
-#ifdef CPP_IOIPSL
    USE IOIPSL
-#endif
    USE infotrac, ONLY : nqtot
    use com_io_dyn_mod, only : histid,histvid,histuid,               &
@@ -52 +50 @@
   real :: tstep, t_ops, t_wrt
 
-#ifdef CPP_IOIPSL
   ! This routine needs IOIPSL to work
   !   Variables locales
@@ -186 +183 @@
   call histend(histuid)
   call histend(histvid)
-#else
-  ! tell the user this routine should be run with ioipsl
-  write(lunout,*)"inithist: Warning this routine should not be", &
-        " used without ioipsl"
-#endif
-  ! of #ifdef CPP_IOIPSL
+
+
   return
 end subroutine inithist