/[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.12 by dgoldberg, Wed Oct 3 14:54:31 2012 UTC revision 1.16 by dgoldberg, Wed Oct 10 15:02:42 2012 UTC
# Line 12  C     -------------------------- REAL PA Line 12  C     -------------------------- REAL PA
12       & streamice_nonlin_tol_fp,       & streamice_nonlin_tol_fp,
13       & streamice_CFL_factor, streamice_adjDump,       & streamice_CFL_factor, streamice_adjDump,
14       & streamice_bg_surf_slope_x, streamice_bg_surf_slope_y,       & streamice_bg_surf_slope_x, streamice_bg_surf_slope_y,
15       & streamice_kx_b_init, streamice_ky_b_init       & streamice_kx_b_init, streamice_ky_b_init,
16         & streamice_wgt_drift, streamice_wgt_surf,
17         & streamice_wgt_avthick, streamice_wgt_vel
18        _RL streamice_density, streamice_density_ocean_avg        _RL streamice_density, streamice_density_ocean_avg
19        _RL A_glen_isothermal, n_glen, eps_glen_min        _RL A_glen_isothermal, n_glen, eps_glen_min
20        _RL C_basal_fric_const        _RL C_basal_fric_const
# Line 25  C     -------------------------- REAL PA Line 27  C     -------------------------- REAL PA
27        _RL streamice_adjDump        _RL streamice_adjDump
28        _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y        _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y
29        _RL streamice_kx_b_init, streamice_ky_b_init        _RL streamice_kx_b_init, streamice_ky_b_init
30          _RL streamice_wgt_drift, streamice_wgt_surf
31          _RL streamice_wgt_avthick, streamice_wgt_vel
32          
33                
34  C     parms for parameterized initial thickness  C     parms for parameterized initial thickness
35  C     SHELF_MAX_DRAFT: max thickness of ice in m  C     SHELF_MAX_DRAFT: max thickness of ice in m
# Line 211  C    REAL ARRAYS Line 216  C    REAL ARRAYS
216       &     C_basal_friction,       &     C_basal_friction,
217       &     A_glen,       &     A_glen,
218       &     BDOT_streamice,       &     BDOT_streamice,
219         &     streamice_sigma_coord, streamice_delsigma,
220         &     H_streamice_prev
221    
222    #ifdef STREAMICE_HYBRID_STRESS
223          COMMON /STREAMICE_HYBRID/
224       &     streamice_taubx, streamice_tauby,       &     streamice_taubx, streamice_tauby,
225       &     streamice_u_surf, streamice_v_surf,       &     streamice_u_surf, streamice_v_surf,
226       &     visc_streamice_full, streamice_omega, streamice_basal_geom,       &     visc_streamice_full, streamice_omega, streamice_basal_geom,
227       &     streamice_vert_shear_uz, streamice_vert_shear_vz,       &     streamice_vert_shear_uz, streamice_vert_shear_vz    
228    #endif
229    
230  #ifdef USE_ALT_RLOW  #ifdef USE_ALT_RLOW
231       &     R_low_si,        COMMON /STREAMICE_RLOW/
232         &     R_low_si
233  #endif  #endif
      &     streamice_sigma_coord, streamice_delsigma  
234    
235    
236        _RL H_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL H_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 238  C    REAL ARRAYS Line 250  C    REAL ARRAYS
250        _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)
251        _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)
252        _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)
253          _RL streamice_sigma_coord (Nr)
254          _RL streamice_delsigma (Nr)      
255    
256  #ifdef USE_ALT_RLOW  #ifdef USE_ALT_RLOW
257        _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
258  #endif  #endif
259    
260  C      The following arrays are used for the hybrid stress balance        C     The following arrays are used for the hybrid stress balance            
261          #ifdef STREAMICE_HYBRID_STRESS      
262        _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
263        _RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
264        _RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 255  C      The following arrays are used for Line 270  C      The following arrays are used for
270       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)       & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
271        _RL streamice_vert_shear_uz (Nr)        _RL streamice_vert_shear_uz (Nr)
272        _RL streamice_vert_shear_vz (Nr)        _RL streamice_vert_shear_vz (Nr)
273        _RL streamice_sigma_coord (Nr)  #endif      
274        _RL streamice_delsigma (Nr)        
275                
276  !! IMPORTANT: MELT RATE IN METERS PER YEAR  !! IMPORTANT: MELT RATE IN METERS PER YEAR
277  !! POSITIVE WHERE MELTING  !! POSITIVE WHERE MELTING
278        _RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
279                _RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
280        _RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
281                
282          
283                        
284        COMMON /STREAMICE_COST_RL/        COMMON /STREAMICE_COST_RL/
285       &       cost_func1_streamice       &       cost_func1_streamice
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22