Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

@@ -4 +4 @@
 ! Write the NetCDF restart file (initialization).
 !-------------------------------------------------------------------------------
-#ifdef CPP_IOIPSL
   USE IOIPSL
-#endif
   USE parallel_lmdz
   USE mod_hallo
@@ -53 +51 @@
   IF(mpi_rank/=0) RETURN
 
-#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.