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 |
|
|