| 1 |
C $Header: /u/gcmpack/MITgcm_contrib/gael/verification/global_oce_llc90/code/profiles.h_itXX,v 1.2 2013/02/05 15:17:49 gforget Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
C============================================================ |
| 5 |
C NOBSMAX : maximal number of profiles |
| 6 |
C============================================================ |
| 7 |
INTEGER NOBSGLOB |
| 8 |
PARAMETER ( NOBSGLOB = 200000 ) |
| 9 |
INTEGER NFILESPROFMAX |
| 10 |
PARAMETER ( NFILESPROFMAX=20 ) |
| 11 |
INTEGER NVARMAX |
| 12 |
PARAMETER ( NVARMAX=6 ) |
| 13 |
INTEGER NLEVELMAX |
| 14 |
PARAMETER ( NLEVELMAX=100 ) |
| 15 |
INTEGER NUM_INTERP_POINTS |
| 16 |
PARAMETER (NUM_INTERP_POINTS = 1) |
| 17 |
|
| 18 |
C=========================================================== |
| 19 |
C variables |
| 20 |
C=========================================================== |
| 21 |
_RL prof_time(NFILESPROFMAX,NOBSGLOB,nsx,nsy), |
| 22 |
& prof_lon(NFILESPROFMAX,NOBSGLOB,nsx,nsy), |
| 23 |
& prof_lat(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 24 |
|
| 25 |
#ifdef ALLOW_PROFILES_GENERICGRID |
| 26 |
_RL prof_interp_xC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 27 |
_RL prof_interp_yC11(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 28 |
_RL prof_interp_xCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 29 |
_RL prof_interp_yCNINJ(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 30 |
_RL prof_interp_weights(NFILESPROFMAX,NOBSGLOB, |
| 31 |
& NUM_INTERP_POINTS,nsx,nsy) |
| 32 |
integer prof_interp_i(NFILESPROFMAX,NOBSGLOB, |
| 33 |
& NUM_INTERP_POINTS,nsx,nsy) |
| 34 |
integer prof_interp_j(NFILESPROFMAX,NOBSGLOB, |
| 35 |
& NUM_INTERP_POINTS,nsx,nsy) |
| 36 |
#endif |
| 37 |
|
| 38 |
integer prof_ind_glob(NFILESPROFMAX,NOBSGLOB,nsx,nsy) |
| 39 |
_RL prof_depth(NFILESPROFMAX,NLEVELMAX,nsx,nsy) |
| 40 |
_RL prof_mask1D_cur(NLEVELMAX,nsx,nsy) |
| 41 |
_RL prof_etan_mean(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
| 42 |
_RL prof_theta_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
| 43 |
_RL prof_salt_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
| 44 |
|
| 45 |
integer profNo(NFILESPROFMAX,nsx,nsy) |
| 46 |
integer profDepthNo(NFILESPROFMAX,nsx,nsy) |
| 47 |
|
| 48 |
logical vec_quantities(NFILESPROFMAX,NVARMAX,nsx,nsy) |
| 49 |
integer fidforward(NFILESPROFMAX,nsx,nsy), |
| 50 |
& fidadjoint(NFILESPROFMAX,nsx,nsy), |
| 51 |
& fidtangent(NFILESPROFMAX,nsx,nsy) |
| 52 |
integer fiddata(NFILESPROFMAX,nsx,nsy) |
| 53 |
character*(8) prof_names(NVARMAX) |
| 54 |
character*(12) prof_namesmask(NVARMAX) |
| 55 |
character*(14) prof_namesweight(NVARMAX) |
| 56 |
|
| 57 |
_RL profiles_data_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy) |
| 58 |
_RL profiles_weight_buff(NLEVELMAX,1000,NVARMAX,nsx,nsy) |
| 59 |
integer profiles_minind_buff(nsx,nsy) |
| 60 |
integer profiles_maxind_buff(nsx,nsy) |
| 61 |
integer profiles_curfile_buff(nsx,nsy) |
| 62 |
|
| 63 |
logical profilesDoNcOutput, profilesDoGenGrid |
| 64 |
integer prof_num_var_tot(NFILESPROFMAX,nsx,nsy) |
| 65 |
integer prof_num_var_cur(NFILESPROFMAX,NVARMAX,nsx,nsy) |
| 66 |
|
| 67 |
C=========================================================== |
| 68 |
C Common Blocks |
| 69 |
C=========================================================== |
| 70 |
|
| 71 |
COMMON /profiles_r/ prof_time, prof_lon, prof_lat, |
| 72 |
& prof_depth, prof_mask1D_cur, |
| 73 |
& prof_etan_mean, prof_theta_mean, prof_salt_mean |
| 74 |
COMMON /profiles_i/ prof_ind_glob, profNo, profDepthNo, |
| 75 |
& fidforward, fidadjoint, fidtangent, fiddata, |
| 76 |
& prof_num_var_tot, prof_num_var_cur |
| 77 |
COMMON /profiles_l/ vec_quantities, profilesDoNcOutput, |
| 78 |
& profilesDoGenGrid |
| 79 |
COMMON /profiles_c/ prof_names, prof_namesmask, prof_namesweight |
| 80 |
|
| 81 |
#ifdef ALLOW_PROFILES_GENERICGRID |
| 82 |
COMMON /profiles_GenericGrid_r/ prof_interp_weights, |
| 83 |
& prof_interp_xC11, prof_interp_yC11, |
| 84 |
& prof_interp_xCNINJ, prof_interp_yCNINJ |
| 85 |
COMMON /profiles_GenericGrid_i/ |
| 86 |
& prof_interp_i, prof_interp_j |
| 87 |
#endif |
| 88 |
|
| 89 |
COMMON /profiles_buff_r/ profiles_data_buff, profiles_weight_buff |
| 90 |
COMMON /profiles_buff_i/ |
| 91 |
& profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff |
| 92 |
|
| 93 |
|
| 94 |
COMMON /profiles_cost_r/ |
| 95 |
& objf_profiles, |
| 96 |
& num_profiles, |
| 97 |
& mult_profiles |
| 98 |
_RL objf_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy) |
| 99 |
_RL num_profiles(NFILESPROFMAX,NVARMAX,nsx,nsy) |
| 100 |
_RL mult_profiles(NFILESPROFMAX,NVARMAX) |
| 101 |
|
| 102 |
COMMON /profiles_cost_c/ |
| 103 |
& profilesDir, profilesfiles |
| 104 |
character*(MAX_LEN_FNAM) profilesDir |
| 105 |
character*(MAX_LEN_FNAM) profilesfiles(NFILESPROFMAX) |
| 106 |
|
| 107 |
COMMON /profiles_ctrl_dummy/ |
| 108 |
& profiles_dummy |
| 109 |
_RL profiles_dummy(NFILESPROFMAX,NVARMAX,nsx,nsy) |
| 110 |
|
| 111 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph