--- trunk/libf/IOIPSL/histwrite_real.f90	2011/04/27 13:00:12	45
+++ trunk/libf/IOIPSL/histwrite_real.f90	2012/01/10 19:02:02	56
@@ -17,8 +17,16 @@
     use netcdf, only: NF90_PUT_VAR
     use histcom_var
 
-    INTEGER, INTENT(IN) :: pfileid, pitau, varid, &
-         &                      nbindex, nindex(nbindex), nbdpt
+    INTEGER, INTENT(IN) :: pfileid, pitau, varid, nbdpt
+
+    INTEGER, INTENT(IN) :: nbindex
+    ! number of indices provided
+    ! If it is equal to the size of the full field as provided in histdef
+    ! then nothing is done.
+
+    INTEGER, INTENT(IN) :: nindex(nbindex)
+    ! The indices used to expand the variable (pdata) onto the full field
+
     REAL, DIMENSION(:)  :: buff_tmp
     LOGICAL, INTENT(IN) :: do_oper, do_write