Changeset 909


Ignore:
Timestamp:
Mar 22, 2013, 12:13:14 PM (12 years ago)
Author:
tnavarro
Message:

bug from r860 corrected

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r860 r909  
    15931593  edges(3)=nblev
    15941594  edges(4)=timelength
    1595   ierr=NF_PUT_VARA_REAL(outfid,var_id(i),corner,edges,outdata)
     1595  ierr=NF_PUT_VARA_REAL(outfid,za_varid,corner,edges,outdata)
    15961596  if (ierr.ne.NF_NOERR) then
    15971597    write(*,*) "Error, Failed to write zareoid to output file"
Note: See TracChangeset for help on using the changeset viewer.