Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/obsolete

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 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/obsolete/juldate.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/juldate.f90) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/obsolete/juldate.f90

@@ +1 @@
+! Amaury (07/2024): utilisé nulle part, code de <2004
+! Je suggère de bouger dans obsolète
 
 ! $Id$
@@ -18 +20 @@
         year=dble(ian)
         rmon=dble(imoi)
-    if (imoi <= 2) then
+    if (imoi <= 2) THEN
         year=year-1.
         rmon=rmon+12.
     endif
     cf=year+(rmon/100.)+(ojou/10000.)
-    if (cf >= 1582.1015) then
+    if (cf >= 1582.1015) THEN
         a=int(year/100)
         b=2-a+int(a/4)
@@ -35 +37 @@
     tjdsec=tjdsec-int(tjdsec)
 
-end subroutine juldate
+END SUBROUTINE juldate