Changeset 801 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Jul 3, 2007, 4:59:20 PM (17 years ago)
Author:
Laurent Fairhead
Message:

BUG!
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/readsulfate.F

    r782 r801  
    599599
    600600#ifdef NC_DOUBLE
    601          status = NF_GET_VAR_DOUBLE(NCID, VARID, START, COUNT, so4mth)
     601         status = NF_GET_VARA_DOUBLE(NCID, VARID, START, COUNT, so4mth)
    602602#else
    603          status = NF_GET_VAR_REAL(NCID, VARID, START, COUNT, so4mth)
     603         status = NF_GET_VARA_REAL(NCID, VARID, START, COUNT, so4mth)
    604604#endif
    605605         IF (STATUS .NE. NF_NOERR) write (*,*) 'err in read data',status
Note: See TracChangeset for help on using the changeset viewer.