Changeset 879 for IOIPSL/trunk

Timestamp:

01/29/10 18:42:19 (15 years ago)

Author:

bellier

Message:

bugfix for variables with REAL8 external type

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -1658 +1658 @@
  &                         TRIM(W_F(idf)%W_V(iv)%std_name))
 !-
-      iret = NF90_PUT_ATT (nfid,nvid,'_FillValue', &
- &                         REAL(missing_val,KIND=4))
+      IF (W_F(idf)%W_V(iv)%v_typ == hist_r8) THEN
+        iret = NF90_PUT_ATT (nfid,nvid,'_FillValue',NF90_FILL_REAL8)
+      ELSE
+        iret = NF90_PUT_ATT (nfid,nvid,'_FillValue',NF90_FILL_REAL4)
+      ENDIF
       IF (W_F(idf)%W_V(iv)%hist_wrt_rng) THEN
         iret = NF90_PUT_ATT (nfid,nvid,'valid_min', &
@@ -1989 +1992 @@
   IF (l_dbg) THEN
     WRITE(*,*) "histwrite 0.0 : VAR : ",W_F(idf)%W_V(iv)%v_name
-    WRITE(*,*) "histwrite 0.0 : nbindex,nindex :", &
- &  nbindex,nindex(1:MIN(3,nbindex)),'...',nindex(MAX(1,nbindex-3):nbindex)
+    WRITE(*,*) "histwrite 0.0 : nbindex :",nbindex
+    WRITE(*,*) "histwrite 0.0 : nindex  :",nindex(1:MIN(3,nbindex)),'...'
   ENDIF
 !-