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

LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.F90

@@ -4 +4 @@
 subroutine initdynav_loc(day0,anne0,tstep,t_ops,t_wrt)
 
-#ifdef CPP_IOIPSL
   ! This routine needs IOIPSL
    USE IOIPSL
-#endif
+
    USE parallel_lmdz
    use Write_field
@@ -56 +55 @@
   real :: tstep, t_ops, t_wrt
 
-#ifdef CPP_IOIPSL
   ! This routine needs IOIPSL
   !   Variables locales
@@ -281 +279 @@
   call histend(histuaveid)
   call histend(histvaveid)
-#else
-  write(lunout,*)'initdynav_loc: Needs IOIPSL to function'
-#endif
-  ! #endif of #ifdef CPP_IOIPSL
+
 end subroutine initdynav_loc