2 |
|
|
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 |
6 |
|
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
7 |
|
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
8 |
|
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
9 |
|
topp |
10 |
|
use histvar_seq_m, only: histvar_seq |
11 |
|
use histwrite_real_m, only: histwrite_real |
12 |
|
use isittime_m, only: isittime |
13 |
|
USE mathop_m, ONLY: mathop |
14 |
|
|
15 |
implicit none |
implicit none |
16 |
|
|
17 |
INTERFACE histwrite |
INTERFACE histwrite |
41 |
MODULE PROCEDURE histwrite_r1d, histwrite_r2d, histwrite_r3d |
MODULE PROCEDURE histwrite_r1d, histwrite_r2d, histwrite_r3d |
42 |
END INTERFACE histwrite |
END INTERFACE histwrite |
43 |
|
|
44 |
PRIVATE histwrite_r1d, histwrite_r2d, histwrite_r3d |
PRIVATE |
45 |
|
public histwrite |
46 |
|
|
47 |
CONTAINS |
CONTAINS |
48 |
|
|
49 |
SUBROUTINE histwrite_r1d(fileid, varname, itau, pdata) |
SUBROUTINE histwrite_r1d(fileid, varname, itau, pdata) |
50 |
|
|
|
USE errioipsl, ONLY: histerr |
|
|
use calendar, only: isittime |
|
|
USE mathop_m, ONLY: mathop |
|
|
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
|
|
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
|
|
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
|
|
topp |
|
|
use histvar_seq_m, only: histvar_seq |
|
|
use histwrite_real_m, only: histwrite_real |
|
|
|
|
51 |
INTEGER, INTENT(IN):: fileid, itau |
INTEGER, INTENT(IN):: fileid, itau |
52 |
CHARACTER(LEN=*), INTENT(IN):: varname |
CHARACTER(LEN=*), INTENT(IN):: varname |
53 |
REAL, INTENT(IN):: pdata(:) |
REAL, INTENT(IN):: pdata(:) |
178 |
|
|
179 |
SUBROUTINE histwrite_r2d (fileid, varname, itau, pdata) |
SUBROUTINE histwrite_r2d (fileid, varname, itau, pdata) |
180 |
|
|
|
use calendar, only: isittime |
|
|
USE errioipsl, ONLY: histerr |
|
|
USE mathop_m, ONLY: mathop |
|
|
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
|
|
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
|
|
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
|
|
topp |
|
|
use histvar_seq_m, only: histvar_seq |
|
|
use histwrite_real_m, only: histwrite_real |
|
|
|
|
181 |
INTEGER, INTENT(IN):: fileid, itau |
INTEGER, INTENT(IN):: fileid, itau |
182 |
REAL, INTENT(IN):: pdata(:, :) |
REAL, INTENT(IN):: pdata(:, :) |
183 |
CHARACTER(LEN=*), INTENT(IN):: varname |
CHARACTER(LEN=*), INTENT(IN):: varname |
216 |
|
|
217 |
! 3.0 We check if we need to do an operation |
! 3.0 We check if we need to do an operation |
218 |
|
|
219 |
IF (last_opp_chk(fileid, varid) == itau) THEN |
IF (last_opp_chk(fileid, varid) == itau) CALL histerr (3, "histwrite", & |
220 |
CALL histerr (3, "histwrite", & |
'This variable as already been analysed at the present', & |
221 |
'This variable as already been analysed at the present', & |
'time step', ' ') |
|
'time step', ' ') |
|
|
ENDIF |
|
222 |
|
|
223 |
CALL isittime & |
CALL isittime(itau, date0(fileid), deltat(fileid), & |
224 |
(itau, date0(fileid), deltat(fileid), freq_opp(fileid, varid), & |
freq_opp(fileid, varid), last_opp(fileid, varid), & |
225 |
last_opp(fileid, varid), last_opp_chk(fileid, varid), do_oper) |
last_opp_chk(fileid, varid), do_oper) |
226 |
|
|
227 |
! 4.0 We check if we need to write the data |
! 4.0 We check if we need to write the data |
228 |
|
|
311 |
|
|
312 |
SUBROUTINE histwrite_r3d (fileid, varname, itau, pdata) |
SUBROUTINE histwrite_r3d (fileid, varname, itau, pdata) |
313 |
|
|
|
use calendar, only: isittime |
|
|
USE errioipsl, ONLY: histerr |
|
|
USE mathop_m, ONLY: mathop |
|
|
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
|
|
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
|
|
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
|
|
topp |
|
|
use histvar_seq_m, only: histvar_seq |
|
|
use histwrite_real_m, only: histwrite_real |
|
|
|
|
314 |
INTEGER, INTENT(IN):: fileid, itau |
INTEGER, INTENT(IN):: fileid, itau |
315 |
REAL, DIMENSION(:, :, :), INTENT(IN):: pdata |
REAL, DIMENSION(:, :, :), INTENT(IN):: pdata |
316 |
CHARACTER(LEN=*), INTENT(IN):: varname |
CHARACTER(LEN=*), INTENT(IN):: varname |