Changeset 2118 for trunk/LMDZ.MARS/util/localtime.F90

Timestamp:

Mar 27, 2019, 3:29:47 PM (6 years ago)

Author:

emillour

Message:

Mars GCM utilities:
Put the cpp instructions at the beginning of the line, as this is required for picky compilers such as gfortran.
EM

File:

• trunk/LMDZ.MARS/util/localtime.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/util/localtime.F90

@@ -719 +719 @@
    ierr = NF_REDEF (nout)
 
-   #ifdef NC_DOUBLE
+#ifdef NC_DOUBLE
    ierr = NF_DEF_VAR (nout,"controle",NF_DOUBLE,1,ctldimout,nvarid)
-   #else
+#else
    ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
-   #endif
+#endif
 
    ierr = NF_PUT_ATT_TEXT (nout,nvarid,"title",18,"Control parameters")
@@ -730 +730 @@
    ierr = NF_ENDDEF(nout)
 
-   #ifdef NC_DOUBLE
+#ifdef NC_DOUBLE
    ierr = NF_PUT_VAR_DOUBLE (nout,nvarid,ctl)
-   #else
+#else
    ierr = NF_PUT_VAR_REAL (nout,nvarid,ctl)
-   #endif
+#endif
 endif