3 |
! From histcom.f90, version 2.1 2004/04/21 09:27:10 |
! From histcom.f90, version 2.1 2004/04/21 09:27:10 |
4 |
|
|
5 |
USE errioipsl, ONLY: histerr |
USE errioipsl, ONLY: histerr |
6 |
use histbeg_totreg_m, ONLY: nb_files |
use histbeg_totreg_m, ONLY: nb_files, date0, deltat |
7 |
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
USE histcom_var, ONLY: datasz_in, freq_opp, freq_wrt, fuchnbout, last_opp, & |
8 |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
last_opp_chk, last_wrt, last_wrt_chk, missing_val, nb_files_max, & |
9 |
last_wrt_chk, missing_val, nbopp, scal, scsize, sopps, topp |
nb_var_max, nbopp, scal, scsize, sopps, topp |
10 |
use histvar_seq_m, only: histvar_seq |
use histvar_seq_m, only: histvar_seq |
11 |
use histwrite_real_m, only: histwrite_real |
use histwrite_real_m, only: histwrite_real |
12 |
use isittime_m, only: isittime |
use isittime_m, only: isittime |
14 |
|
|
15 |
implicit none |
implicit none |
16 |
|
|
17 |
|
INTEGER, SAVE:: datasz_max(nb_files_max, nb_var_max) = -1 |
18 |
|
|
19 |
INTERFACE histwrite |
INTERFACE histwrite |
20 |
! The "histwrite" procedures give the data to the input-output system. |
! The "histwrite" procedures give the data to the input-output system. |
21 |
! They trigger the operations to be performed and the writing to |
! They trigger the operations to be performed and the writing to |
160 |
nbpt_out = datasz_max(fileid, varid) |
nbpt_out = datasz_max(fileid, varid) |
161 |
CALL mathop(sopps(fileid, varid, 1), nbpt_in, pdata, missing_val, & |
CALL mathop(sopps(fileid, varid, 1), nbpt_in, pdata, missing_val, & |
162 |
nbindex, nindex, scal(fileid, varid, 1), nbpt_out, buff_tmp) |
nbindex, nindex, scal(fileid, varid, 1), nbpt_out, buff_tmp) |
163 |
CALL histwrite_real(fileid, varid, itau, nbpt_out, buff_tmp, nbindex, & |
CALL histwrite_real(datasz_max, fileid, varid, itau, nbpt_out, & |
164 |
nindex, do_oper, do_write) |
buff_tmp, nbindex, nindex, do_oper, do_write) |
165 |
ENDIF |
ENDIF |
166 |
|
|
167 |
! 6.0 Manage time steps |
! 6.0 Manage time steps |
293 |
CALL mathop (sopps(fileid, varid, 1), nbpt_in, pdata, & |
CALL mathop (sopps(fileid, varid, 1), nbpt_in, pdata, & |
294 |
missing_val, nbindex, nindex, & |
missing_val, nbindex, nindex, & |
295 |
scal(fileid, varid, 1), nbpt_out, buff_tmp) |
scal(fileid, varid, 1), nbpt_out, buff_tmp) |
296 |
CALL histwrite_real (fileid, varid, itau, nbpt_out, & |
CALL histwrite_real (datasz_max, fileid, varid, itau, nbpt_out, & |
297 |
buff_tmp, nbindex, nindex, do_oper, do_write) |
buff_tmp, nbindex, nindex, do_oper, do_write) |
298 |
ENDIF |
ENDIF |
299 |
|
|
430 |
CALL mathop (sopps(fileid, varid, 1), nbpt_in, pdata, & |
CALL mathop (sopps(fileid, varid, 1), nbpt_in, pdata, & |
431 |
missing_val, nbindex, nindex, & |
missing_val, nbindex, nindex, & |
432 |
scal(fileid, varid, 1), nbpt_out, buff_tmp) |
scal(fileid, varid, 1), nbpt_out, buff_tmp) |
433 |
CALL histwrite_real (fileid, varid, itau, nbpt_out, & |
CALL histwrite_real(datasz_max, fileid, varid, itau, nbpt_out, & |
434 |
buff_tmp, nbindex, nindex, do_oper, do_write) |
buff_tmp, nbindex, nindex, do_oper, do_write) |
435 |
ENDIF |
ENDIF |
436 |
|
|