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