/[lmdze]/trunk/IOIPSL/histcom_var.f
ViewVC logotype

Diff of /trunk/IOIPSL/histcom_var.f

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

revision 177 by guez, Fri May 22 23:13:19 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 11  MODULE histcom_var Line 11  MODULE histcom_var
11    
12    ! Time variables    ! Time variables
13    INTEGER, SAVE:: itau0(nb_files_max)=0    INTEGER, SAVE:: itau0(nb_files_max)=0
   REAL, DIMENSION(nb_files_max), SAVE::date0, deltat  
14    
15    ! Counter of elements    ! Counter of elements
16    INTEGER, DIMENSION(nb_files_max), SAVE:: nb_var=0, nb_tax=0    INTEGER, DIMENSION(nb_files_max), SAVE:: nb_var=0, nb_tax=0
# Line 48  MODULE histcom_var Line 47  MODULE histcom_var
47         scsize, zorig, zsize         scsize, zorig, zsize
48    ! Sizes for the data as it goes through the various math operations    ! Sizes for the data as it goes through the various math operations
49    INTEGER, SAVE:: datasz_in(nb_files_max, nb_var_max, 3) = -1    INTEGER, SAVE:: datasz_in(nb_files_max, nb_var_max, 3) = -1
   INTEGER, SAVE:: datasz_max(nb_files_max, nb_var_max) = -1  
50    
51    INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: var_haxid, var_zaxid, &    INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: var_haxid, var_zaxid, &
52         var_axid, ncvar_ids         var_axid
53    
54    REAL, SAVE:: minmax(nb_files_max, nb_var_max, 2)    REAL, SAVE:: minmax(nb_files_max, nb_var_max, 2)
55    
56    REAL, DIMENSION(nb_files_max, nb_var_max), SAVE:: &    REAL, DIMENSION(nb_files_max, nb_var_max), SAVE:: freq_opp, freq_wrt
57         freq_opp, freq_wrt    INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: last_opp, last_wrt, &
58    INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: &         last_opp_chk, last_wrt_chk, nb_opp, nb_wrt
        last_opp, last_wrt, last_opp_chk, last_wrt_chk, nb_opp, nb_wrt, point  
59    
60    ! Book keeping for the buffers    ! Book keeping for the buffers
61    INTEGER:: buff_pos = 0    LOGICAL:: zoom(nb_files_max) = .FALSE.
   REAL, ALLOCATABLE, SAVE:: buffer(:)  
   LOGICAL:: zoom(nb_files_max) = .FALSE., regular(nb_files_max) = .TRUE.  
62    
63    ! Book keeping of the axes    ! Book keeping of the axes
64    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21