/[lmdze]/trunk/IOIPSL/histwrite_real.f
ViewVC logotype

Diff of /trunk/IOIPSL/histwrite_real.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 45 by guez, Wed Apr 27 13:00:12 2011 UTC revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC
# Line 17  contains Line 17  contains
17      use netcdf, only: NF90_PUT_VAR      use netcdf, only: NF90_PUT_VAR
18      use histcom_var      use histcom_var
19    
20      INTEGER, INTENT(IN) :: pfileid, pitau, varid, &      INTEGER, INTENT(IN) :: pfileid, pitau, varid, nbdpt
21           &                      nbindex, nindex(nbindex), nbdpt  
22        INTEGER, INTENT(IN) :: nbindex
23        ! number of indices provided
24        ! If it is equal to the size of the full field as provided in histdef
25        ! then nothing is done.
26    
27        INTEGER, INTENT(IN) :: nindex(nbindex)
28        ! The indices used to expand the variable (pdata) onto the full field
29    
30      REAL, DIMENSION(:)  :: buff_tmp      REAL, DIMENSION(:)  :: buff_tmp
31      LOGICAL, INTENT(IN) :: do_oper, do_write      LOGICAL, INTENT(IN) :: do_oper, do_write
32    
Legend:
Removed from v.45  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.21