/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 254 by guez, Mon Feb 5 10:39:38 2018 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
   INTEGER, SAVE:: nb_files=0  
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
17    
18    ! NETCDF IDs for files and axes    ! NETCDF IDs for files and axes
# Line 49  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.82  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21