Changeset 1985 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/defprec.f90

Timestamp:

2010-07-05T17:54:00+02:00 (14 years ago)

Author:

flavoni

Message:

commit script to compile with FCM, see ticket: #685

File:

• branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/defprec.f90 (moved) (moved from branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/def.prec) (1 diff)

branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/defprec.f90

@@ -18 +18 @@
   INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37)
   INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307)
-  INTEGER,PARAMETER :: i_std=i_?, r_std=r_?
+  INTEGER,PARAMETER :: i_std=i_4, r_std=r_8
 !-----------------
 END MODULE defprec