/[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.7 by dgoldberg, Tue Sep 18 17:06:48 2012 UTC revision 1.15 by dgoldberg, Wed Oct 10 02:26:48 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        _RL streamice_density, streamice_density_ocean_avg        _RL streamice_density, streamice_density_ocean_avg
18        _RL A_glen_isothermal, n_glen, eps_glen_min        _RL A_glen_isothermal, n_glen, eps_glen_min
19        _RL C_basal_fric_const        _RL C_basal_fric_const
# Line 25  C     -------------------------- REAL PA Line 26  C     -------------------------- REAL PA
26        _RL streamice_adjDump        _RL streamice_adjDump
27        _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y        _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y
28        _RL streamice_kx_b_init, streamice_ky_b_init        _RL streamice_kx_b_init, streamice_ky_b_init
29          _RL streamice_wgt_drift, streamice_wgt_surf    
30          
31                
32  C     parms for parameterized initial thickness  C     parms for parameterized initial thickness
33  C     SHELF_MAX_DRAFT: max thickness of ice in m  C     SHELF_MAX_DRAFT: max thickness of ice in m
# Line 96  C     -------------------------- LOGICAL Line 99  C     -------------------------- LOGICAL
99        LOGICAL STREAMICE_construct_matrix        LOGICAL STREAMICE_construct_matrix
100        LOGICAL STREAMICE_lower_cg_tol        LOGICAL STREAMICE_lower_cg_tol
101        LOGICAL STREAMICE_diagnostic_only        LOGICAL STREAMICE_diagnostic_only
102          LOGICAL STREAMICE_ppm_driving_stress
103          LOGICAL STREAMICE_h_ctrl_const_surf
104                
105  C     The following parameters specify periodic boundary conditions.  C     The following parameters specify periodic boundary conditions.
106  C     For now this will completely override all other boundary conditions  C     For now this will completely override all other boundary conditions
# Line 115  C      LOGICAL STREAMICE_hybrid_stress Line 120  C      LOGICAL STREAMICE_hybrid_stress
120       & STREAMICE_construct_matrix,       & STREAMICE_construct_matrix,
121       & STREAMICE_lower_cg_tol,       & STREAMICE_lower_cg_tol,
122       & STREAMICE_NS_periodic, STREAMICE_EW_periodic,       & STREAMICE_NS_periodic, STREAMICE_EW_periodic,
123       & STREAMICE_diagnostic_only       & STREAMICE_diagnostic_only,
124         & STREAMICE_ppm_driving_stress,
125         & STREAMICE_h_ctrl_const_surf
126    
127  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------
128    
# Line 211  C    REAL ARRAYS Line 218  C    REAL ARRAYS
218       &     streamice_u_surf, streamice_v_surf,       &     streamice_u_surf, streamice_v_surf,
219       &     visc_streamice_full, streamice_omega, streamice_basal_geom,       &     visc_streamice_full, streamice_omega, streamice_basal_geom,
220       &     streamice_vert_shear_uz, streamice_vert_shear_vz,       &     streamice_vert_shear_uz, streamice_vert_shear_vz,
221       &     streamice_sigma_coord, streamice_delsigma       &     streamice_sigma_coord, streamice_delsigma,
222         &     H_streamice_prev
223    
224    #ifdef USE_ALT_RLOW
225          COMMON /STREAMICE_RLOW/
226         &     R_low_si
227    #endif
228    
229    
230        _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)
231        _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)
232        _RL V_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL V_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 229  C    REAL ARRAYS Line 244  C    REAL ARRAYS
244        _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)
245        _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)
246        _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)
247          #ifdef USE_ALT_RLOW
248          _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
249    #endif
250    
251  C      The following arrays are used for the hybrid stress balance        C      The following arrays are used for the hybrid stress balance      
252                
253        _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)
# Line 249  C      The following arrays are used for Line 267  C      The following arrays are used for
267  !! IMPORTANT: MELT RATE IN METERS PER YEAR  !! IMPORTANT: MELT RATE IN METERS PER YEAR
268  !! POSITIVE WHERE MELTING  !! POSITIVE WHERE MELTING
269        _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)
270                _RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
271        _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)
272                
273          
274              
275          COMMON /STREAMICE_COST_RL/
276         &       cost_func1_streamice
277          _RL cost_func1_streamice(nSx,nSy)
278          
279  C    NOTES :  C    NOTES :
280  C      REAL ARRAYS THAT COMPRISE "STATE":  C      REAL ARRAYS THAT COMPRISE "STATE":
281  C       H_streamice,  C       H_streamice,
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22