Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inithist.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inithist.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inithist.F90

@@ -46 +46 @@
   !   Arguments
   !
-  integer :: day0, anne0
-  real :: tstep, t_ops, t_wrt
+  INTEGER :: day0, anne0
+  REAL :: tstep, t_ops, t_wrt
 
   ! This routine needs IOIPSL to work
   !   Variables locales
   !
-  integer :: tau0
-  real :: zjulian
-  integer :: iq
-  real :: rlong(iip1, jjp1), rlat(iip1, jjp1)
-  integer :: uhoriid, vhoriid, thoriid, zvertiid
-  integer :: ii, jj
-  integer :: zan, dayref
+  INTEGER :: tau0
+  REAL :: zjulian
+  INTEGER :: iq
+  REAL :: rlong(iip1, jjp1), rlat(iip1, jjp1)
+  INTEGER :: uhoriid, vhoriid, thoriid, zvertiid
+  INTEGER :: ii, jj
+  INTEGER :: zan, dayref
   !
   !  Initialisations