Changeset 1930 for LMDZ5/trunk/libf/dyn3d/juldate.F

Timestamp:

Jan 17, 2014, 5:45:09 PM (11 years ago)

Author:

lguez

Message:

abort, dfloat and pause are not in the Fortran standard. Replaced
abort by abort_gcm and dfloat by dble. Note: I modified dyn3dpar files
that were identical to dyn3d modified files.

File:

• LMDZ5/trunk/libf/dyn3d/juldate.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/juldate.F

@@ -9 +9 @@
         implicit real (a-h,o-z)
         frac=((os/60.+om)/60.+oh)/24.
-        ojou=dfloat(ijou)+frac
-            year=dfloat(ian)
-            rmon=dfloat(imoi)
+        ojou=dble(ijou)+frac
+            year=dble(ian)
+            rmon=dble(imoi)
         if (imoi .le. 2) then
             year=year-1.