Changeset 1570


Ignore:
Timestamp:
Jun 30, 2016, 8:11:09 AM (8 years ago)
Author:
emillour
Message:

Mars GCM:
Bug fix (typo) when using double precision old dynamical core.
CW

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dyn3d/dynredem.F

    r1422 r1570  
    11161116            enddo
    11171117#ifdef NC_DOUBLE
    1118             ierr = NF_PUT_VARA_DOUBLE (nid,nvarid,corner,edgesq3d)
     1118            ierr = NF_PUT_VARA_DOUBLE (nid,nvarid,corner,edges,q3d)
    11191119#else
    11201120            ierr = NF_PUT_VARA_REAL (nid,nvarid,corner,edges,q3d)
Note: See TracChangeset for help on using the changeset viewer.