2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
|
REAL, ALLOCATABLE, SAVE:: buffer(:) |
6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
SUBROUTINE histwrite_real(fileid, varid, itau, nbdpt, buff_tmp, nbindex, & |
SUBROUTINE histwrite_real(datasz_max, fileid, varid, itau, nbdpt, buff_tmp, & |
10 |
nindex, do_oper, do_write) |
nbindex, nindex, do_oper, do_write) |
11 |
|
|
12 |
! This subroutine is internal and does the calculations and writing |
! This subroutine is internal and does the calculations and writing |
13 |
! if needed. At a later stage it should be split into an operation |
! if needed. At a later stage it should be split into an operation |
14 |
! and writing subroutines. |
! and writing subroutines. |
15 |
|
|
16 |
USE histcom_var, ONLY: buffer, buff_pos, datasz_max, deltat, & |
use histbeg_totreg_m, only: deltat, regular |
17 |
last_opp, last_wrt, missing_val, nbopp, nb_opp, nb_wrt, ncdf_ids, & |
USE histcom_var, ONLY: last_opp, last_wrt, missing_val, nbopp, nb_opp, & |
18 |
ncvar_ids, point, regular, scal, scsize, sopps, tax_last, tdimid, & |
nb_wrt, ncdf_ids, scal, scsize, sopps, tax_last, tdimid, topp, & |
19 |
topp, var_axid, zorig, zsize |
var_axid, zorig, zsize |
20 |
USE mathelp, ONLY: trans_buff, moycum |
use histdef_m, only: buff_pos, point |
21 |
|
use histend_m, only: ncvar_ids |
22 |
USE mathop_m, ONLY: mathop |
USE mathop_m, ONLY: mathop |
23 |
|
use moycum_m, only: moycum |
24 |
use netcdf, only: NF90_PUT_VAR |
use netcdf, only: NF90_PUT_VAR |
25 |
|
USE trans_buff_m, ONLY: trans_buff |
26 |
|
|
27 |
|
INTEGER, INTENT(IN):: datasz_max(:, :) ! (nb_files_max, nb_var_max) |
28 |
INTEGER, INTENT(IN):: fileid, varid, itau, nbdpt |
INTEGER, INTENT(IN):: fileid, varid, itau, nbdpt |
29 |
REAL buff_tmp(:) |
REAL buff_tmp(:) |
30 |
|
|