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 |
|
|