37 |
|
|
38 |
SUBROUTINE histwrite_r1d(pfileid, pvarname, pitau, pdata) |
SUBROUTINE histwrite_r1d(pfileid, pvarname, pitau, pdata) |
39 |
|
|
40 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY: histerr |
41 |
use calendar, only: isittime |
use calendar, only: isittime |
42 |
USE mathop_m, ONLY : mathop |
USE mathop_m, ONLY: mathop |
43 |
USE histcom_var, ONLY : datasz_in, datasz_max, date0, deltat, & |
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
44 |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
45 |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
46 |
topp |
topp |
48 |
use histwrite_real_m, only: histwrite_real |
use histwrite_real_m, only: histwrite_real |
49 |
|
|
50 |
INTEGER, INTENT(IN):: pfileid, pitau |
INTEGER, INTENT(IN):: pfileid, pitau |
|
REAL, INTENT(IN):: pdata(:) |
|
51 |
CHARACTER(LEN=*), INTENT(IN):: pvarname |
CHARACTER(LEN=*), INTENT(IN):: pvarname |
52 |
|
REAL, INTENT(IN):: pdata(:) |
53 |
|
|
54 |
! Variables local to the procedure: |
! Variables local to the procedure: |
55 |
integer nbindex, nindex(size(pdata)) |
integer nbindex, nindex(size(pdata)) |
183 |
SUBROUTINE histwrite_r2d (pfileid, pvarname, pitau, pdata) |
SUBROUTINE histwrite_r2d (pfileid, pvarname, pitau, pdata) |
184 |
|
|
185 |
use calendar, only: isittime |
use calendar, only: isittime |
186 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY: histerr |
187 |
USE mathop_m, ONLY : mathop |
USE mathop_m, ONLY: mathop |
188 |
USE histcom_var, ONLY : datasz_in, datasz_max, date0, deltat, & |
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
189 |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
190 |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
191 |
topp |
topp |
328 |
SUBROUTINE histwrite_r3d (pfileid, pvarname, pitau, pdata) |
SUBROUTINE histwrite_r3d (pfileid, pvarname, pitau, pdata) |
329 |
|
|
330 |
use calendar, only: isittime |
use calendar, only: isittime |
331 |
USE errioipsl, ONLY : histerr |
USE errioipsl, ONLY: histerr |
332 |
USE mathop_m, ONLY : mathop |
USE mathop_m, ONLY: mathop |
333 |
USE histcom_var, ONLY : datasz_in, datasz_max, date0, deltat, & |
USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, & |
334 |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, & |
335 |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, & |
336 |
topp |
topp |