File indexing completed on 2024-11-07 06:11:22 UTC
view on githubraw file Latest commit d3172737 on 2024-11-06 17:45:12 UTC
6a770e0a24 Patr*0001
0002
0003
71a5587721 Gael*0004 _RL prof_time(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
0005 & prof_lon(NFILESPROFMAX,NOBSGLOB,nsx,nsy),
0006 & prof_lat(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
ba63501b4c Gael*0007
0008 _RL prof_interp_xC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0009 _RL prof_interp_yC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0010 _RL prof_interp_xCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0011 _RL prof_interp_yCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0012 _RL prof_interp_weights(NFILESPROFMAX,NOBSGLOB,
0013 & NUM_INTERP_POINTS,nsx,nsy)
0014 integer prof_interp_i(NFILESPROFMAX,NOBSGLOB,
0015 & NUM_INTERP_POINTS,nsx,nsy)
0016 integer prof_interp_j(NFILESPROFMAX,NOBSGLOB,
0017 & NUM_INTERP_POINTS,nsx,nsy)
0018
71a5587721 Gael*0019 integer prof_ind_glob(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0020 _RL prof_depth(NFILESPROFMAX,NLEVELMAX,nsx,nsy)
0021 _RL prof_mask1D_cur(NLEVELMAX,nsx,nsy)
055ae01d6f Gael*0022 _RL prof_etan_mean(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
e3672e8781 Patr*0023 _RL prof_theta_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
0024 _RL prof_salt_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
da0e0765ef An T*0025 #ifndef ALLOW_ECCO
0026 _RL m_UE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nsx,nsy)
0027 _RL m_VN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nsx,nsy)
0028 #endif
6a770e0a24 Patr*0029
71a5587721 Gael*0030 integer profNo(NFILESPROFMAX,nsx,nsy)
0031 integer profDepthNo(NFILESPROFMAX,nsx,nsy)
6a770e0a24 Patr*0032
ea4d09597a Gael*0033 logical vec_quantities(NFILESPROFMAX,NVARMAX,nsx,nsy)
71a5587721 Gael*0034 integer fidforward(NFILESPROFMAX,nsx,nsy),
0035 & fidadjoint(NFILESPROFMAX,nsx,nsy),
0036 & fidtangent(NFILESPROFMAX,nsx,nsy)
0037 integer fiddata(NFILESPROFMAX,nsx,nsy)
cf16ba6028 Gael*0038 character*(8) prof_names(NFILESPROFMAX,NVARMAX)
0039 character*(8) prof_namesmod(NFILESPROFMAX,NVARMAX)
0040 character*(12) prof_namesmask(NFILESPROFMAX,NVARMAX)
0041 character*(14) prof_namesweight(NFILESPROFMAX,NVARMAX)
6b2230d510 Ou W*0042 #ifdef ALLOW_PROFILES_CLIMMASK
0043 character*(12) prof_namesclim(NFILESPROFMAX,NVARMAX)
0044 #endif
cf16ba6028 Gael*0045 integer prof_itracer(NFILESPROFMAX,NVARMAX)
6a770e0a24 Patr*0046
ea4d09597a Gael*0047 _RL profiles_data_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
0048 _RL profiles_weight_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy)
71a5587721 Gael*0049 integer profiles_minind_buff(nsx,nsy)
0050 integer profiles_maxind_buff(nsx,nsy)
0051 integer profiles_curfile_buff(nsx,nsy)
6a770e0a24 Patr*0052
f0e4bffe35 Gael*0053 logical profilesDoNcOutput, profilesDoGenGrid
d3172737dc aver*0054 logical prof_make_nc
71a5587721 Gael*0055 integer prof_num_var_tot(NFILESPROFMAX,nsx,nsy)
ea4d09597a Gael*0056 integer prof_num_var_cur(NFILESPROFMAX,NVARMAX,nsx,nsy)
6a770e0a24 Patr*0057
6b2230d510 Ou W*0058 #ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
0059 integer prof_ind_avgbin(NFILESPROFMAX,NOBSGLOB,nsx,nsy)
0060 integer NLEVELCOMB, NAVGBIN
0061 _RL NLEVELCOMBRL, NAVGBINRL
0062
0063 integer profiles_mean_indsamples(NVARMAX)
0064 _RL prof_depth_comb(NLEVELCOMBMAX,nsx,nsy)
0065 integer prof_lev_comb(NLEVELMAX,NFILESPROFMAX,nsx,nsy)
0066 integer avgbinglbsum(NAVGBINMAX)
0067 _RL prof_data1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
0068 &NVARMAX)
0069 _RL prof_traj1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
0070 &NVARMAX)
0071 _RL prof_weights1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
0072 &NVARMAX)
0073 _RL prof_count1D_all_mean(NAVGBINMAX,NLEVELCOMBMAX,
0074 &NVARMAX)
0075 #endif
0076
6a770e0a24 Patr*0077
0078
0079
ea4d09597a Gael*0080
0081 COMMON /profiles_r/ prof_time, prof_lon, prof_lat,
e3672e8781 Patr*0082 & prof_depth, prof_mask1D_cur,
55cea6ec8d Gael*0083 & prof_etan_mean, prof_theta_mean, prof_salt_mean
6b2230d510 Ou W*0084 #ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
0085 &,prof_depth_comb
0086 &,prof_data1D_all_mean
0087 &,prof_traj1D_all_mean
0088 &,prof_weights1D_all_mean
0089 &,prof_count1D_all_mean
0090 &,NLEVELCOMBRL, NAVGBINRL
0091 #endif
da0e0765ef An T*0092 #ifndef ALLOW_ECCO
0093 &,m_UE,m_VN
0094 #endif /* ALLOW_ECCO */
ea4d09597a Gael*0095 COMMON /profiles_i/ prof_ind_glob, profNo, profDepthNo,
0096 & fidforward, fidadjoint, fidtangent, fiddata,
cf16ba6028 Gael*0097 & prof_num_var_tot, prof_num_var_cur, prof_itracer
6b2230d510 Ou W*0098 #ifdef ALLOW_PROFILES_SAMPLESPLIT_COST
0099 &,prof_ind_avgbin, NLEVELCOMB, NAVGBIN
0100 &,prof_lev_comb
0101 &,avgbinglbsum
0102 &,profiles_mean_indsamples
0103 #endif
0104
f0e4bffe35 Gael*0105 COMMON /profiles_l/ vec_quantities, profilesDoNcOutput,
d3172737dc aver*0106 & profilesDoGenGrid, prof_make_nc
3c8dcfdea9 Gael*0107 COMMON /profiles_c/ prof_names, prof_namesmask,
6b2230d510 Ou W*0108 #ifdef ALLOW_PROFILES_CLIMMASK
0109 & prof_namesclim,
0110 #endif
3c8dcfdea9 Gael*0111 & prof_namesweight, prof_namesmod
ea4d09597a Gael*0112
ba63501b4c Gael*0113 COMMON /profiles_GenericGrid_r/ prof_interp_weights,
0114 & prof_interp_xC11, prof_interp_yC11,
0115 & prof_interp_xCNINJ, prof_interp_yCNINJ
0116 COMMON /profiles_GenericGrid_i/
0117 & prof_interp_i, prof_interp_j
0118
ea4d09597a Gael*0119 COMMON /profiles_buff_r/ profiles_data_buff, profiles_weight_buff
0120 COMMON /profiles_buff_i/
0121 & profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff
6a770e0a24 Patr*0122
0123
24462d2fa8 Patr*0124 COMMON /profiles_cost_r/
0125 & objf_profiles,
0126 & num_profiles,
fd8f717f84 Gael*0127 & mult_profiles,
0128 & prof_facmod
6b2230d510 Ou W*0129 & ,objf_profiles_mean,
0130 & num_profiles_mean,
0131 & mult_profiles_mean
0132
ea4d09597a Gael*0133 _RL objf_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
0134 _RL num_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy)
0135 _RL mult_profiles(NFILESPROFMAX,NVARMAX)
fd8f717f84 Gael*0136 _RL prof_facmod(NFILESPROFMAX,NVARMAX)
6b2230d510 Ou W*0137 _RL objf_profiles_mean(NVARMAX,nsx,nsy)
0138 _RL num_profiles_mean(NVARMAX,nsx,nsy)
0139 _RL mult_profiles_mean(NVARMAX)
24462d2fa8 Patr*0140
0141 COMMON /profiles_cost_c/
1ff0163ead Gael*0142 & profilesDir, profilesfiles
0143 character*(MAX_LEN_FNAM) profilesDir
ff70818335 Gael*0144 character*(MAX_LEN_FNAM) profilesfiles(NFILESPROFMAX)
24462d2fa8 Patr*0145
0146 COMMON /profiles_ctrl_dummy/
0147 & profiles_dummy
ea4d09597a Gael*0148 _RL profiles_dummy(NFILESPROFMAX,NVARMAX,nsx,nsy)
0149
0150