ecco_v4_release4_devel/code/profiles.h

C $Header: /u/gcmpack/MITgcm/pkg/profiles/profiles.h,v 1.20 2017/04/03 23:16:38 ou.wang Exp $
C $Name:  $

C===========================================================
C variables
C===========================================================
      _RL prof_time(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
     & prof_lon(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
     & prof_lat(NFILESPROFMAX,NOBSGLOB,nsx,nsy)

      _RL prof_interp_xC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      _RL prof_interp_yC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      _RL prof_interp_xCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      _RL prof_interp_yCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      _RL prof_interp_weights(NFILESPROFMAX,NOBSGLOB,
     &     NUM_INTERP_POINTS,nsx,nsy)
      integer prof_interp_i(NFILESPROFMAX,NOBSGLOB,
     &     NUM_INTERP_POINTS,nsx,nsy)
      integer prof_interp_j(NFILESPROFMAX,NOBSGLOB,
     &     NUM_INTERP_POINTS,nsx,nsy)

      integer prof_ind_glob(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      _RL prof_depth(NFILESPROFMAX,NLEVELMAX,nsx,nsy)
      _RL prof_mask1D_cur(NLEVELMAX,nsx,nsy)
      _RL prof_etan_mean(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
      _RL prof_theta_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
      _RL prof_salt_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)

      integer profNo(NFILESPROFMAX,nsx,nsy)
      integer profDepthNo(NFILESPROFMAX,nsx,nsy)

      logical vec_quantities(NFILESPROFMAX,NVARMAX,nsx,nsy)
      integer fidforward(NFILESPROFMAX,nsx,nsy), 
     & fidadjoint(NFILESPROFMAX,nsx,nsy), 
     & fidtangent(NFILESPROFMAX,nsx,nsy)
      integer fiddata(NFILESPROFMAX,nsx,nsy)
      character*(8) prof_names(NFILESPROFMAX,NVARMAX)
      character*(8) prof_namesmod(NFILESPROFMAX,NVARMAX)
      character*(12) prof_namesmask(NFILESPROFMAX,NVARMAX)
      character*(14) prof_namesweight(NFILESPROFMAX,NVARMAX)
#ifdef ALLOW_PROFILES_CLIMMASK
      character*(12) prof_namesclim(NFILESPROFMAX,NVARMAX)
#endif
      integer prof_itracer(NFILESPROFMAX,NVARMAX)

      _RL profiles_data_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
      _RL profiles_weight_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
      integer profiles_minind_buff(nsx,nsy)
      integer profiles_maxind_buff(nsx,nsy)
      integer profiles_curfile_buff(nsx,nsy)

      logical profilesDoNcOutput, profilesDoGenGrid
      integer prof_num_var_tot(NFILESPROFMAX,nsx,nsy)
      integer prof_num_var_cur(NFILESPROFMAX,NVARMAX,nsx,nsy)

#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
      integer prof_ind_avgbin(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
      integer NLEVELCOMB, NAVGBIN
      _RL NLEVELCOMBRL, NAVGBINRL
C number of independent samples
      integer profiles_mean_indsamples(NVARMAX)
      _RL prof_depth_comb(NLEVELCOMBMAX,nsx,nsy)
      integer prof_lev_comb(NLEVELMAX,NFILESPROFMAX,nsx,nsy)
      integer avgbinglbsum(NAVGBINMAX)
      _RL prof_data1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
     &NVARMAX)
      _RL prof_traj1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
     &NVARMAX)
      _RL prof_weights1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
     &NVARMAX)
      _RL prof_count1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
     &NVARMAX)
#endif

C===========================================================
C Common Blocks
C===========================================================

      COMMON /profiles_r/ prof_time, prof_lon, prof_lat,
     & prof_depth, prof_mask1D_cur, 
     & prof_etan_mean, prof_theta_mean, prof_salt_mean
#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
      COMMON /profiles_r2/
     & prof_depth_comb
     &,prof_data1D_all_mean
     &,prof_traj1D_all_mean
     &,prof_weights1D_all_mean
     &,prof_count1D_all_mean
     &,NLEVELCOMBRL, NAVGBINRL
#endif
      COMMON /profiles_i/ prof_ind_glob, profNo, profDepthNo,
     & fidforward, fidadjoint, fidtangent, fiddata,
     & prof_num_var_tot, prof_num_var_cur, prof_itracer
#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
      COMMON /profiles_i2/
     & prof_ind_avgbin, NLEVELCOMB, NAVGBIN
     &,prof_lev_comb
     &,avgbinglbsum
     &,profiles_mean_indsamples
#endif

      COMMON /profiles_l/ vec_quantities, profilesDoNcOutput, 
     & profilesDoGenGrid
      COMMON /profiles_c/ prof_names, prof_namesmask,
     & prof_namesweight, prof_namesmod
#ifdef ALLOW_PROFILES_CLIMMASK
      COMMON /profiles_l2/ 
     & prof_namesclim 
#endif

      COMMON /profiles_GenericGrid_r/ prof_interp_weights,
     & prof_interp_xC11, prof_interp_yC11,
     & prof_interp_xCNINJ, prof_interp_yCNINJ  
      COMMON /profiles_GenericGrid_i/ 
     & prof_interp_i, prof_interp_j

      COMMON /profiles_buff_r/ profiles_data_buff, profiles_weight_buff
      COMMON /profiles_buff_i/
     & profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff

     
      COMMON /profiles_cost_r/
     &                objf_profiles,
     &                num_profiles,
     &                mult_profiles,
     &                prof_facmod
     &               ,objf_profiles_mean,
     &                num_profiles_mean,
     &                mult_profiles_mean

      _RL  objf_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
      _RL  num_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
      _RL  mult_profiles(NFILESPROFMAX,NVARMAX)
      _RL  prof_facmod(NFILESPROFMAX,NVARMAX)
      _RL  objf_profiles_mean(NVARMAX,nsx,nsy)
      _RL  num_profiles_mean(NVARMAX,nsx,nsy)
      _RL  mult_profiles_mean(NVARMAX)

      COMMON /profiles_cost_c/
     &        profilesDir, profilesfiles
      character*(MAX_LEN_FNAM) profilesDir
      character*(MAX_LEN_FNAM) profilesfiles(NFILESPROFMAX)

      COMMON /profiles_ctrl_dummy/
     &                profiles_dummy
      _RL profiles_dummy(NFILESPROFMAX,NVARMAX,nsx,nsy)


1	C $Header: /u/gcmpack/MITgcm/pkg/profiles/profiles.h,v 1.20 2017/04/03 23:16:38 ou.wang Exp $
2	C $Name: $
3
4	C===========================================================
5	C variables
6	C===========================================================
7	_RL prof_time(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
8	& prof_lon(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
9	& prof_lat(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
10
11	_RL prof_interp_xC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
12	_RL prof_interp_yC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
13	_RL prof_interp_xCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
14	_RL prof_interp_yCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
15	_RL prof_interp_weights(NFILESPROFMAX,NOBSGLOB,
16	& NUM_INTERP_POINTS,nsx,nsy)
17	integer prof_interp_i(NFILESPROFMAX,NOBSGLOB,
18	& NUM_INTERP_POINTS,nsx,nsy)
19	integer prof_interp_j(NFILESPROFMAX,NOBSGLOB,
20	& NUM_INTERP_POINTS,nsx,nsy)
21
22	integer prof_ind_glob(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
23	_RL prof_depth(NFILESPROFMAX,NLEVELMAX,nsx,nsy)
24	_RL prof_mask1D_cur(NLEVELMAX,nsx,nsy)
25	_RL prof_etan_mean(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
26	_RL prof_theta_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
27	_RL prof_salt_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
28
29	integer profNo(NFILESPROFMAX,nsx,nsy)
30	integer profDepthNo(NFILESPROFMAX,nsx,nsy)
31
32	logical vec_quantities(NFILESPROFMAX,NVARMAX,nsx,nsy)
33	integer fidforward(NFILESPROFMAX,nsx,nsy),
34	& fidadjoint(NFILESPROFMAX,nsx,nsy),
35	& fidtangent(NFILESPROFMAX,nsx,nsy)
36	integer fiddata(NFILESPROFMAX,nsx,nsy)
37	character*(8) prof_names(NFILESPROFMAX,NVARMAX)
38	character*(8) prof_namesmod(NFILESPROFMAX,NVARMAX)
39	character*(12) prof_namesmask(NFILESPROFMAX,NVARMAX)
40	character*(14) prof_namesweight(NFILESPROFMAX,NVARMAX)
41	#ifdef ALLOW_PROFILES_CLIMMASK
42	character*(12) prof_namesclim(NFILESPROFMAX,NVARMAX)
43	#endif
44	integer prof_itracer(NFILESPROFMAX,NVARMAX)
45
46	_RL profiles_data_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
47	_RL profiles_weight_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
48	integer profiles_minind_buff(nsx,nsy)
49	integer profiles_maxind_buff(nsx,nsy)
50	integer profiles_curfile_buff(nsx,nsy)
51
52	logical profilesDoNcOutput, profilesDoGenGrid
53	integer prof_num_var_tot(NFILESPROFMAX,nsx,nsy)
54	integer prof_num_var_cur(NFILESPROFMAX,NVARMAX,nsx,nsy)
55
56	#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
57	integer prof_ind_avgbin(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
58	integer NLEVELCOMB, NAVGBIN
59	_RL NLEVELCOMBRL, NAVGBINRL
60	C number of independent samples
61	integer profiles_mean_indsamples(NVARMAX)
62	_RL prof_depth_comb(NLEVELCOMBMAX,nsx,nsy)
63	integer prof_lev_comb(NLEVELMAX,NFILESPROFMAX,nsx,nsy)
64	integer avgbinglbsum(NAVGBINMAX)
65	_RL prof_data1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
66	&NVARMAX)
67	_RL prof_traj1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
68	&NVARMAX)
69	_RL prof_weights1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
70	&NVARMAX)
71	_RL prof_count1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
72	&NVARMAX)
73	#endif
74
75	C===========================================================
76	C Common Blocks
77	C===========================================================
78
79	COMMON /profiles_r/ prof_time, prof_lon, prof_lat,
80	& prof_depth, prof_mask1D_cur,
81	& prof_etan_mean, prof_theta_mean, prof_salt_mean
82	#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
83	COMMON /profiles_r2/
84	& prof_depth_comb
85	&,prof_data1D_all_mean
86	&,prof_traj1D_all_mean
87	&,prof_weights1D_all_mean
88	&,prof_count1D_all_mean
89	&,NLEVELCOMBRL, NAVGBINRL
90	#endif
91	COMMON /profiles_i/ prof_ind_glob, profNo, profDepthNo,
92	& fidforward, fidadjoint, fidtangent, fiddata,
93	& prof_num_var_tot, prof_num_var_cur, prof_itracer
94	#ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
95	COMMON /profiles_i2/
96	& prof_ind_avgbin, NLEVELCOMB, NAVGBIN
97	&,prof_lev_comb
98	&,avgbinglbsum
99	&,profiles_mean_indsamples
100	#endif
101
102	COMMON /profiles_l/ vec_quantities, profilesDoNcOutput,
103	& profilesDoGenGrid
104	COMMON /profiles_c/ prof_names, prof_namesmask,
105	& prof_namesweight, prof_namesmod
106	#ifdef ALLOW_PROFILES_CLIMMASK
107	COMMON /profiles_l2/
108	& prof_namesclim
109	#endif
110
111	COMMON /profiles_GenericGrid_r/ prof_interp_weights,
112	& prof_interp_xC11, prof_interp_yC11,
113	& prof_interp_xCNINJ, prof_interp_yCNINJ
114	COMMON /profiles_GenericGrid_i/
115	& prof_interp_i, prof_interp_j
116
117	COMMON /profiles_buff_r/ profiles_data_buff, profiles_weight_buff
118	COMMON /profiles_buff_i/
119	& profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff
120
121
122	COMMON /profiles_cost_r/
123	& objf_profiles,
124	& num_profiles,
125	& mult_profiles,
126	& prof_facmod
127	& ,objf_profiles_mean,
128	& num_profiles_mean,
129	& mult_profiles_mean
130
131	_RL objf_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
132	_RL num_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
133	_RL mult_profiles(NFILESPROFMAX,NVARMAX)
134	_RL prof_facmod(NFILESPROFMAX,NVARMAX)
135	_RL objf_profiles_mean(NVARMAX,nsx,nsy)
136	_RL num_profiles_mean(NVARMAX,nsx,nsy)
137	_RL mult_profiles_mean(NVARMAX)
138
139	COMMON /profiles_cost_c/
140	& profilesDir, profilesfiles
141	character*(MAX_LEN_FNAM) profilesDir
142	character*(MAX_LEN_FNAM) profilesfiles(NFILESPROFMAX)
143
144	COMMON /profiles_ctrl_dummy/
145	& profiles_dummy
146	_RL profiles_dummy(NFILESPROFMAX,NVARMAX,nsx,nsy)
147
148