225 |
|
|
226 |
! 3.0 We check if we need to do an operation |
! 3.0 We check if we need to do an operation |
227 |
|
|
228 |
IF (last_opp_chk(fileid, varid) == itau) THEN |
IF (last_opp_chk(fileid, varid) == itau) CALL histerr (3, "histwrite", & |
229 |
CALL histerr (3, "histwrite", & |
'This variable as already been analysed at the present', & |
230 |
'This variable as already been analysed at the present', & |
'time step', ' ') |
|
'time step', ' ') |
|
|
ENDIF |
|
231 |
|
|
232 |
CALL isittime & |
CALL isittime(itau, date0(fileid), deltat(fileid), & |
233 |
(itau, date0(fileid), deltat(fileid), freq_opp(fileid, varid), & |
freq_opp(fileid, varid), last_opp(fileid, varid), & |
234 |
last_opp(fileid, varid), last_opp_chk(fileid, varid), do_oper) |
last_opp_chk(fileid, varid), do_oper) |
235 |
|
|
236 |
! 4.0 We check if we need to write the data |
! 4.0 We check if we need to write the data |
237 |
|
|