Changeset 615


Ignore:
Timestamp:
Mar 31, 2005, 10:54:42 AM (19 years ago)
Author:
Laurent Fairhead
Message:

Petit oubli dans le changement du type des nbins
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • BOL/trunk/Class_Reg/geo2reg.F90

    r614 r615  
    626626    var_dim(ir) = min_bin + step_bin * (ir -1)
    627627  enddo
    628   ierr = NF_PUT_VAR_INT(out_file_id, var_bin_id, var_dim)
     628  ierr = NF_PUT_VAR_REAL(out_file_id, var_bin_id, var_dim)
    629629  if (ierr /= NF_NOERR) then
    630630    write(lunout,*)NF_STRERROR(ierr)
Note: See TracChangeset for help on using the changeset viewer.