Ignore:
Timestamp:
04/07/11 10:03:36 (13 years ago)
Author:
smasson
Message:

bugfix to keep double precision of vertical scale factors in all cases

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Computation/e3v_3d.pro

    r445 r454  
    5959  ENDCASE 
    6060; 
    61   IF n_elements(arr2d) NE 0 THEN e3v3d = temporary(e3v3d) * ( arr2d[*] # replicate(1., nzt) ) 
     61  IF n_elements(arr2d) NE 0 THEN e3v3d = temporary(e3v3d) * ( arr2d[*] # replicate(1.d, nzt) ) 
    6262; 
    6363  return, e3v3d 
Note: See TracChangeset for help on using the changeset viewer.