Back to home page

MITgcm

 
 

    


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 C===========================================================
                0002 C variables
                0003 C===========================================================
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 C number of independent samples
                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 C===========================================================
                0078 C Common Blocks
                0079 C===========================================================
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