/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC
# Line 2  MODULE histwrite_m Line 2  MODULE histwrite_m
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
# Line 31  MODULE histwrite_m Line 41  MODULE histwrite_m
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(:)
# Line 177  CONTAINS Line 178  CONTAINS
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
# Line 320  CONTAINS Line 311  CONTAINS
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
Legend:
Removed from v.82  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21