/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/STREAMICE.h
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/STREAMICE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by dgoldberg, Wed Jan 9 21:56:17 2013 UTC revision 1.19 by dgoldberg, Thu Mar 7 15:23:19 2013 UTC
# Line 6  C     -------------------------- REAL PA Line 6  C     -------------------------- REAL PA
6    
7        COMMON /STREAMICE_PARMS_R/        COMMON /STREAMICE_PARMS_R/
8       & streamice_density, streamice_density_ocean_avg,       & streamice_density, streamice_density_ocean_avg,
9       & A_glen_isothermal, n_glen, eps_glen_min, eps_u_min,  !     & A_glen_isothermal, n_glen, eps_glen_min, eps_u_min,
10         & B_glen_isothermal, n_glen, eps_glen_min, eps_u_min,
11       & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif,       & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif,
12       & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,       & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,
13       & streamice_nonlin_tol_fp,       & streamice_nonlin_tol_fp,
# Line 16  C     -------------------------- REAL PA Line 17  C     -------------------------- REAL PA
17       & streamice_wgt_drift, streamice_wgt_surf,       & streamice_wgt_drift, streamice_wgt_surf,
18       & streamice_wgt_avthick, streamice_wgt_vel,       & streamice_wgt_avthick, streamice_wgt_vel,
19       & streamice_wgt_tikh,       & streamice_wgt_tikh,
20       & streamice_addl_backstress       & streamice_addl_backstress,
21         & streamice_smooth_gl_width
22        _RL streamice_density, streamice_density_ocean_avg        _RL streamice_density, streamice_density_ocean_avg
23        _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min  !      _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min
24          _RL B_glen_isothermal, n_glen, eps_glen_min, eps_u_min
25        _RL C_basal_fric_const        _RL C_basal_fric_const
26        _RL n_basal_friction        _RL n_basal_friction
27        _RL streamice_input_flux_unif        _RL streamice_input_flux_unif
# Line 33  C     -------------------------- REAL PA Line 36  C     -------------------------- REAL PA
36        _RL streamice_wgt_avthick, streamice_wgt_vel        _RL streamice_wgt_avthick, streamice_wgt_vel
37        _RL streamice_wgt_tikh        _RL streamice_wgt_tikh
38        _RL streamice_addl_backstress        _RL streamice_addl_backstress
39          _RL streamice_smooth_gl_width
40                
41                
42  C     parms for parameterized initial thickness  C     parms for parameterized initial thickness
# Line 84  C     -------------------------- CHAR PA Line 88  C     -------------------------- CHAR PA
88        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile
89        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile
90        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile
91          CHARACTER*(MAX_LEN_FNAM) STREAMICEtopogFile
92          CHARACTER*(MAX_LEN_FNAM) STREAMICEcostMaskFile
93                
94  !     THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES  !     THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES
95  !     (i.e. boundaries that do not conform with rectangular walls)  !     (i.e. boundaries that do not conform with rectangular walls)
# Line 104  C     -------------------------- CHAR PA Line 110  C     -------------------------- CHAR PA
110       &     STREAMICEbasalTracConfig,       &     STREAMICEbasalTracConfig,
111       &     STREAMICEbasalTracFile,       &     STREAMICEbasalTracFile,
112       &     STREAMICEvelOptimFile,       &     STREAMICEvelOptimFile,
113         &     STREAMICEtopogFile,
114       &     STREAMICEhmaskFile,       &     STREAMICEhmaskFile,
115       &     STREAMICEuFaceBdryFile,       &     STREAMICEuFaceBdryFile,
116       &     STREAMICEvFaceBdryFile,       &     STREAMICEvFaceBdryFile,
117       &     STREAMICEuDirichValsFile,       &     STREAMICEuDirichValsFile,
118       &     STREAMICEvDirichValsFile,       &     STREAMICEvDirichValsFile,
119       &     STREAMICEGlenConstFile,       &     STREAMICEGlenConstFile,
120       &     STREAMICEGlenConstConfig       &     STREAMICEGlenConstConfig,
121         &     STREAMICEcostMaskFile
122            
123  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------
124    
# Line 194  C     Short arrays (e.g. masks) Line 202  C     Short arrays (e.g. masks)
202       &     STREAMICE_vfacemask_bdry,       &     STREAMICE_vfacemask_bdry,
203       &     STREAMICE_float_cond,       &     STREAMICE_float_cond,
204       &     STREAMICE_calve_mask,       &     STREAMICE_calve_mask,
205       &     STREAMICE_ctrl_mask       &     STREAMICE_ctrl_mask,
206         &     STREAMICE_cost_mask
207        _RS STREAMICE_hmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS STREAMICE_hmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
208        _RS STREAMICE_umask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS STREAMICE_umask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
209        _RS STREAMICE_vmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS STREAMICE_vmask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 211  C     Short arrays (e.g. masks) Line 220  C     Short arrays (e.g. masks)
220        _RS STREAMICE_calve_mask        _RS STREAMICE_calve_mask
221       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
222        _RS STREAMICE_ctrl_mask        _RS STREAMICE_ctrl_mask
223       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,Nr)       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
224          _RS STREAMICE_cost_mask
225         & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
226            
227  C    NOTES :  C    NOTES :
228  C     STREAMICE_ufacemask_bdry, STREAMICE_vfacemask_bdry ARE CONSTANT (FIXED)  C     STREAMICE_ufacemask_bdry, STREAMICE_vfacemask_bdry ARE CONSTANT (FIXED)
# Line 240  C    REAL ARRAYS Line 251  C    REAL ARRAYS
251       &     v_bdry_values_SI,       &     v_bdry_values_SI,
252       &     STREAMICE_dummy_array,       &     STREAMICE_dummy_array,
253       &     C_basal_friction,       &     C_basal_friction,
254       &     A_glen,  !     &     A_glen,
255         &     B_glen,
256       &     BDOT_streamice, ADOT_streamice,  ! mass balances in meters per year       &     BDOT_streamice, ADOT_streamice,  ! mass balances in meters per year
257       &     streamice_sigma_coord, streamice_delsigma,       &     streamice_sigma_coord, streamice_delsigma,
258       &     H_streamice_prev       &     H_streamice_prev
# Line 275  C    REAL ARRAYS Line 287  C    REAL ARRAYS
287        _RL u_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL u_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
288        _RL v_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
289        _RL C_basal_friction    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL C_basal_friction    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
290        _RL A_glen    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  !      _RL A_glen    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
291          _RL B_glen    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
292        _RL streamice_sigma_coord (Nr)        _RL streamice_sigma_coord (Nr)
293        _RL streamice_delsigma (Nr)              _RL streamice_delsigma (Nr)      
294    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22