/[lmdze]/trunk/Sources/IOIPSL/histwrite.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/histwrite.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 37  CONTAINS Line 37  CONTAINS
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
# Line 48  CONTAINS Line 48  CONTAINS
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))
# Line 183  CONTAINS Line 183  CONTAINS
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
# Line 328  CONTAINS Line 328  CONTAINS
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
Legend:
Removed from v.56  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21