/[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.10 by heimbach, Mon Oct 1 23:45:14 2012 UTC revision 1.16 by dgoldberg, Wed Oct 10 15:02:42 2012 UTC
# Line 1  Line 1 
1  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
2    
3  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
4    
# 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
234       &     streamice_sigma_coord, streamice_delsigma  
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)
237        _RL U_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL U_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 237  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        COMMON /STREAMICE_COST_RL/  C     The following arrays are used for the hybrid stress balance            
261       &       cost_func1_streamice  #ifdef STREAMICE_HYBRID_STRESS      
       _RL cost_func1_streamice(nSx,nSy)  
   
 C      The following arrays are used for the hybrid stress balance        
         
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 258  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/
285         &       cost_func1_streamice
286          _RL cost_func1_streamice(nSx,nSy)
287          
288  C    NOTES :  C    NOTES :
289  C      REAL ARRAYS THAT COMPRISE "STATE":  C      REAL ARRAYS THAT COMPRISE "STATE":
290  C       H_streamice,  C       H_streamice,
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22