/[lmdze]/trunk/libf/IOIPSL/Histcom/histdef.f90
ViewVC logotype

Diff of /trunk/libf/IOIPSL/Histcom/histdef.f90

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 22  contains Line 22  contains
22           slab_ori, slab_sz, sopps, tax_last, tax_name, tax_name_length, &           slab_ori, slab_sz, sopps, tax_last, tax_name, tax_name_length, &
23           title, topp, unit_name, var_axid, var_haxid, var_zaxid, zax_name, &           title, topp, unit_name, var_axid, var_haxid, var_zaxid, zax_name, &
24           zax_size, zorig, zsize           zax_size, zorig, zsize
25      USE calendar, ONLY: ioget_calendar      USE ioget_calendar_m, ONLY: ioget_calendar
26    
27      INTEGER, INTENT (IN):: fileid      INTEGER, INTENT(IN):: fileid
28      ! (ID of the file the variable should be archived in)      ! (ID of the file the variable should be archived in)
29    
30      CHARACTER (len=*), INTENT (IN):: varname      CHARACTER(len=*), INTENT(IN):: varname
31      ! (name of the variable, short and easy to remember)      ! (name of the variable, short and easy to remember)
32    
33      CHARACTER (len=*), INTENT (IN):: ptitle ! full name of the variable      CHARACTER(len=*), INTENT(IN):: ptitle ! full name of the variable
34      CHARACTER (len=*), INTENT (IN):: unit ! units of the variable      CHARACTER(len=*), INTENT(IN):: unit ! units of the variable
35    
36      ! The next 3 arguments give the size of that data      ! The next 3 arguments give the size of that data
37      ! that will be passed to histwrite. The zoom will be      ! that will be passed to histwrite. The zoom will be
38      ! done there with the horizontal information obtained      ! done there with the horizontal information obtained
39      ! in "histbeg" and the vertical information to follow.      ! in "histbeg" and the vertical information to follow.
40      INTEGER, INTENT (IN):: xsize, ysize ! Sizes in X and Y directions      INTEGER, INTENT(IN):: xsize, ysize ! Sizes in X and Y directions
41      INTEGER, INTENT (IN):: horiid ! ID of the horizontal axis      INTEGER, INTENT(IN):: horiid ! ID of the horizontal axis
42    
43      ! The next two arguments give the vertical zoom to use.      ! The next two arguments give the vertical zoom to use.
44    
45      INTEGER, INTENT (IN):: pzsize      INTEGER, INTENT(IN):: pzsize
46      ! (Size in Z direction (If 1 then no axis is declared for this      ! (Size in Z direction (If 1 then no axis is declared for this
47      ! variable and pzid is not used)      ! variable and pzid is not used)
48    
49      INTEGER, INTENT (IN):: par_oriz ! Off set of the zoom      INTEGER, INTENT(IN):: par_oriz ! Off set of the zoom
50      INTEGER, INTENT (IN):: par_szz ! Size of the zoom      INTEGER, INTENT(IN):: par_szz ! Size of the zoom
51    
52      INTEGER, INTENT (IN):: pzid      INTEGER, INTENT(IN):: pzid
53      ! (ID of the vertical axis to use. It has to have the size of the zoom.)      ! (ID of the vertical axis to use. It has to have the size of the zoom.)
54    
55      CHARACTER (len=*), INTENT (IN):: popp      CHARACTER(len=*), INTENT(IN):: popp
56      ! Operation to be performed. The following options exist today:      ! Operation to be performed. The following options exist today:
57      ! inst: keeps instantaneous values for writting      ! inst: keeps instantaneous values for writting
58      ! ave: Computes the average from call between writes      ! ave: Computes the average from call between writes
59    
60      REAL, INTENT (IN):: pfreq_opp ! Frequency of this operation (in seconds)      REAL, INTENT(IN):: pfreq_opp ! Frequency of this operation (in seconds)
61    
62      REAL, INTENT (IN):: pfreq_wrt      REAL, INTENT(IN):: pfreq_wrt
63      ! (Frequency at which the variable should be written, in seconds)      ! (Frequency at which the variable should be written, in seconds)
64    
65      ! Local:      ! Local:
66    
67      INTEGER:: iv, i, nb      INTEGER:: iv, i, nb
68      CHARACTER (len=70):: str70, str71, str72      CHARACTER(len=70):: str70, str71, str72
69      CHARACTER (len=20):: tmp_name      CHARACTER(len=20):: tmp_name
70      CHARACTER (len=20):: str20, tab_str20(nb_var_max)      CHARACTER(len=20):: str20, tab_str20(nb_var_max)
71      INTEGER:: tab_str20_length(nb_var_max)      INTEGER:: tab_str20_length(nb_var_max)
72      CHARACTER (len=40):: str40, tab_str40(nb_var_max)      CHARACTER(len=40):: str40, tab_str40(nb_var_max)
73      INTEGER:: tab_str40_length(nb_var_max)      INTEGER:: tab_str40_length(nb_var_max)
74      CHARACTER (len=10):: str10      CHARACTER(len=10):: str10
75      CHARACTER (len=80):: tmp_str80      CHARACTER(len=80):: tmp_str80
76      CHARACTER (len=7):: tmp_topp, tmp_sopp(nbopp_max)      CHARACTER(len=7):: tmp_topp, tmp_sopp(nbopp_max)
77      CHARACTER (len=120):: ex_topps      CHARACTER(len=120):: ex_topps
78      REAL:: tmp_scal(nbopp_max), un_an, un_jour, test_fopp, test_fwrt      REAL:: tmp_scal(nbopp_max), un_an, un_jour, test_fopp, test_fwrt
79      INTEGER:: pos, buff_sz      INTEGER:: pos, buff_sz
80    
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21