Changeset 879


Ignore:
Timestamp:
01/29/10 18:42:19 (13 years ago)
Author:
bellier
Message:

bugfix for variables with REAL8 external type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r857 r879  
    16581658 &                         TRIM(W_F(idf)%W_V(iv)%std_name)) 
    16591659!- 
    1660       iret = NF90_PUT_ATT (nfid,nvid,'_FillValue', & 
    1661  &                         REAL(missing_val,KIND=4)) 
     1660      IF (W_F(idf)%W_V(iv)%v_typ == hist_r8) THEN 
     1661        iret = NF90_PUT_ATT (nfid,nvid,'_FillValue',NF90_FILL_REAL8) 
     1662      ELSE 
     1663        iret = NF90_PUT_ATT (nfid,nvid,'_FillValue',NF90_FILL_REAL4) 
     1664      ENDIF 
    16621665      IF (W_F(idf)%W_V(iv)%hist_wrt_rng) THEN 
    16631666        iret = NF90_PUT_ATT (nfid,nvid,'valid_min', & 
     
    19891992  IF (l_dbg) THEN 
    19901993    WRITE(*,*) "histwrite 0.0 : VAR : ",W_F(idf)%W_V(iv)%v_name 
    1991     WRITE(*,*) "histwrite 0.0 : nbindex,nindex :", & 
    1992  &  nbindex,nindex(1:MIN(3,nbindex)),'...',nindex(MAX(1,nbindex-3):nbindex) 
     1994    WRITE(*,*) "histwrite 0.0 : nbindex :",nbindex 
     1995    WRITE(*,*) "histwrite 0.0 : nindex  :",nindex(1:MIN(3,nbindex)),'...' 
    19931996  ENDIF 
    19941997!- 
Note: See TracChangeset for help on using the changeset viewer.