Changeset 2118


Ignore:
Timestamp:
Mar 27, 2019, 3:29:47 PM (7 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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/localtime.F90

    r1073 r2118  
    719719   ierr = NF_REDEF (nout)
    720720
    721    #ifdef NC_DOUBLE
     721#ifdef NC_DOUBLE
    722722   ierr = NF_DEF_VAR (nout,"controle",NF_DOUBLE,1,ctldimout,nvarid)
    723    #else
     723#else
    724724   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
    725    #endif
     725#endif
    726726
    727727   ierr = NF_PUT_ATT_TEXT (nout,nvarid,"title",18,"Control parameters")
    … …  
    730730   ierr = NF_ENDDEF(nout)
    731731
    732    #ifdef NC_DOUBLE
     732#ifdef NC_DOUBLE
    733733   ierr = NF_PUT_VAR_DOUBLE (nout,nvarid,ctl)
    734    #else
     734#else
    735735   ierr = NF_PUT_VAR_REAL (nout,nvarid,ctl)
    736    #endif
     736#endif
    737737endif
    738738
Note: See TracChangeset for help on using the changeset viewer.