Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/time_phylmdz_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/time_phylmdz_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/time_phylmdz_mod.F90

@@ -36 +36 @@
   SUBROUTINE init_time(annee_ref_, day_ref_, day_ini_, start_time_, &
                        ndays_, pdtphys_)
-  USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE ioipsl_getin_p_mod, ONLY: getin_p
   USE phys_cal_mod, ONLY: phys_cal_init
   IMPLICIT NONE
@@ -79 +79 @@
   SUBROUTINE update_time(pdtphys_)
   ! This subroutine updates the module saved variables.
-  USE ioipsl, ONLY : ymds2ju
+  USE ioipsl, ONLY: ymds2ju
   USE phys_cal_mod, ONLY: phys_cal_update
   USE print_control_mod, ONLY: lunout