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

Contents of /trunk/Sources/IOIPSL/histcom_var.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 178 - (show annotations)
Fri Mar 11 18:47:26 2016 UTC (8 years, 3 months ago) by guez
File size: 2784 byte(s) 
Moved variables date0, deltat, datasz_max, ncvar_ids, point, buff_pos,
buffer, regular from module histcom_var to modules where they are
defined.

Removed procedure ioipslmpp, useless for a sequential program.

Added argument datasz_max to histwrite_real (to avoid circular
dependency with histwrite).

Removed useless variables and computations everywhere.

Changed real litteral constants from default kind to double precision
in lwb, lwu, lwvn, sw1s, swtt, swtt1, swu.

Removed unused arguments: paer of sw, sw1s, sw2s, swclr; pcldsw of
sw1s, sw2s; pdsig, prayl of swr; co2_ppm of clmain, clqh; tsol of
transp_lay; nsrf of screenp; kcrit and kknu of gwstress; pstd of
orosetup.

Added output of relative humidity.
1 MODULE histcom_var
2
3 implicit none
4
5 ! Fixed parameter
6 INTEGER, PARAMETER:: nb_files_max=20, nb_var_max=400, &
7 nb_hax_max=5, nb_zax_max=10, nbopp_max=10
8 REAL, PARAMETER:: missing_val = 1e20
9
10 INTEGER:: bufftmp_max(nb_files_max) = 1
11
12 ! Time variables
13 INTEGER, SAVE:: itau0(nb_files_max)=0
14
15 ! Counter of elements
16 INTEGER, DIMENSION(nb_files_max), SAVE:: nb_var=0, nb_tax=0
17
18 ! NETCDF IDs for files and axes
19 INTEGER, DIMENSION(nb_files_max), SAVE:: ncdf_ids, xid, yid, tid
20 CHARACTER(LEN=500):: assc_file = ''
21
22 ! General definitions in the NETCDF file
23 INTEGER, DIMENSION(nb_files_max, 2), SAVE:: full_size=0, slab_ori, slab_sz
24
25 ! The horizontal axes
26 INTEGER, SAVE:: nb_hax(nb_files_max)=0
27 CHARACTER(LEN=25), SAVE:: hax_name(nb_files_max, nb_hax_max, 2)
28
29 ! The vertical axes
30 INTEGER, SAVE:: nb_zax(nb_files_max)=0
31 INTEGER, DIMENSION(nb_files_max, nb_zax_max), SAVE:: &
32 zax_size, zax_ids, zax_name_length
33 CHARACTER(LEN=20), SAVE:: zax_name(nb_files_max, nb_zax_max)
34
35 ! Informations on each variable
36 INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: &
37 name_length, nbopp
38 CHARACTER(LEN=20), DIMENSION(nb_files_max, nb_var_max), SAVE:: &
39 name, unit_name
40 CHARACTER(LEN=80), DIMENSION(nb_files_max, nb_var_max), SAVE:: &
41 title, fullop
42 CHARACTER(LEN=7), SAVE:: topp(nb_files_max, nb_var_max)
43 CHARACTER(LEN=7), SAVE:: sopps(nb_files_max, nb_var_max, nbopp_max)
44 REAL, SAVE:: scal(nb_files_max, nb_var_max, nbopp_max)
45 ! Sizes of the associated grid and zommed area
46 INTEGER, DIMENSION(nb_files_max, nb_var_max, 3), SAVE:: &
47 scsize, zorig, zsize
48 ! 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
50
51 INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: var_haxid, var_zaxid, &
52 var_axid
53
54 REAL, SAVE:: minmax(nb_files_max, nb_var_max, 2)
55
56 REAL, DIMENSION(nb_files_max, nb_var_max), SAVE:: freq_opp, freq_wrt
57 INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: last_opp, last_wrt, &
58 last_opp_chk, last_wrt_chk, nb_opp, nb_wrt
59
60 ! Book keeping for the buffers
61 LOGICAL:: zoom(nb_files_max) = .FALSE.
62
63 ! Book keeping of the axes
64
65 INTEGER, DIMENSION(nb_files_max, nb_var_max), SAVE:: tdimid, tax_last, &
66 tax_name_length
67 CHARACTER(LEN=40), DIMENSION(nb_files_max, nb_var_max), SAVE:: tax_name
68
69 ! A list of functions which require special action
70 ! (Needs to be updated when functions are added
71 ! but they are well located here)
72
73 CHARACTER(LEN=120):: indchfun = 'scatter, fill, gather, coll', &
74 fuchnbout = 'scatter, fill'
75 ! Some configurable variables with locks
76 CHARACTER(LEN=80):: model_name = 'An IPSL model'
77 LOGICAL:: lock_modname = .FALSE.
78
79 END MODULE histcom_var
  ViewVC Help
Powered by ViewVC 1.1.21