Changeset 5267 for LMDZ6/trunk/libf/dyn3d/dynredem.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/dynredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/dynredem.F90

@@ -4 +4 @@
 ! Write the NetCDF restart file (initialization).
 !-------------------------------------------------------------------------------
-#ifdef CPP_IOIPSL
   USE IOIPSL
-#endif
   USE strings_mod, ONLY: maxlen
   USE infotrac, ONLY: nqtot, tracers
@@ -46 +44 @@
 !===============================================================================
   modname='dynredem0'; fil=fichnom
-#ifdef CPP_IOIPSL
   CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
   CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
-#else
-! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
-  yyears0=0
-  mmois0=1
-  jjour0=1
-#endif        
+
 
   tab_cntrl(:)  = 0.