/[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.3 by heimbach, Thu May 17 21:30:17 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 9  C     -------------------------- REAL PA Line 9  C     -------------------------- REAL PA
9       & A_glen_isothermal, n_glen, eps_glen_min,       & A_glen_isothermal, n_glen, eps_glen_min,
10       & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif,       & C_basal_fric_const, n_basal_friction, streamice_input_flux_unif,
11       & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,       & streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,
12       & streamice_CFL_factor       & streamice_nonlin_tol_fp,
13         & streamice_CFL_factor, streamice_adjDump,
14         & streamice_bg_surf_slope_x, streamice_bg_surf_slope_y,
15         & 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 17  C     -------------------------- REAL PA Line 22  C     -------------------------- REAL PA
22        _RL streamice_input_flux_unif        _RL streamice_input_flux_unif
23        _RL streamice_vel_update        _RL streamice_vel_update
24        _RL streamice_cg_tol, streamice_nonlin_tol        _RL streamice_cg_tol, streamice_nonlin_tol
25          _RL streamice_nonlin_tol_fp
26        _RL streamice_CFL_factor        _RL streamice_CFL_factor
27          _RL streamice_adjDump
28          _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y
29          _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 60  C     -------------------------- CHAR PA Line 72  C     -------------------------- CHAR PA
72        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile
73        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit
74        CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile
75          CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordInit
76          CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile
77          CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile
78          CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig
79          CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile
80          CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile
81        COMMON /STREAMICE_PARM_C/        COMMON /STREAMICE_PARM_C/
82       &     STREAMICEthickInit,       &     STREAMICEthickInit,
83       &     STREAMICEthickFile,       &     STREAMICEthickFile,
84       &     STREAMICEcalveMaskFile       &     STREAMICEcalveMaskFile,
85         &     STREAMICEsigcoordInit,
86         &     STREAMICEsigcoordFile,
87         &     STREAMICEdelsigFile,
88         &     STREAMICEbasalTracConfig,
89         &     STREAMICEbasalTracFile,
90         &     STREAMICEvelOptimFile
91            
92  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------
93    
# Line 76  C     -------------------------- LOGICAL Line 100  C     -------------------------- LOGICAL
100        LOGICAL STREAMICE_calve_to_mask        LOGICAL STREAMICE_calve_to_mask
101        LOGICAL STREAMICE_construct_matrix        LOGICAL STREAMICE_construct_matrix
102        LOGICAL STREAMICE_lower_cg_tol        LOGICAL STREAMICE_lower_cg_tol
103          LOGICAL STREAMICE_diagnostic_only
104          LOGICAL STREAMICE_ppm_driving_stress
105          LOGICAL STREAMICE_h_ctrl_const_surf
106          
107    C     The following parameters specify periodic boundary conditions.
108    C     For now this will completely override all other boundary conditions
109    C     and apply to the entire boundary
110    
111          LOGICAL STREAMICE_NS_periodic
112          LOGICAL STREAMICE_EW_periodic
113          
114    C      LOGICAL STREAMICE_hybrid_stress
115          
116        COMMON /STREAMICE_PARM_L/        COMMON /STREAMICE_PARM_L/
117       & STREAMICEison,       & STREAMICEison,
118       & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio,       & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio,
# Line 83  C     -------------------------- LOGICAL Line 120  C     -------------------------- LOGICAL
120       & STREAMICE_GL_regularize, STREAMICE_move_front,       & STREAMICE_GL_regularize, STREAMICE_move_front,
121       & STREAMICE_calve_to_mask,       & STREAMICE_calve_to_mask,
122       & STREAMICE_construct_matrix,       & STREAMICE_construct_matrix,
123       & STREAMICE_lower_cg_tol       & STREAMICE_lower_cg_tol,
124         & STREAMICE_NS_periodic, STREAMICE_EW_periodic,
125         & STREAMICE_diagnostic_only,
126         & STREAMICE_ppm_driving_stress,
127         & STREAMICE_h_ctrl_const_surf
128    
129  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------
130    
# Line 172  C    REAL ARRAYS Line 213  C    REAL ARRAYS
213       &     u_bdry_values_SI,       &     u_bdry_values_SI,
214       &     v_bdry_values_SI,       &     v_bdry_values_SI,
215       &     STREAMICE_dummy_array,       &     STREAMICE_dummy_array,
216       &     C_basal_friction       &     C_basal_friction,
217         &     A_glen,
218         &     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,
225         &     streamice_u_surf, streamice_v_surf,
226         &     visc_streamice_full, streamice_omega, streamice_basal_geom,
227         &     streamice_vert_shear_uz, streamice_vert_shear_vz    
228    #endif
229    
230    #ifdef USE_ALT_RLOW
231          COMMON /STREAMICE_RLOW/
232         &     R_low_si
233    #endif
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)
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)
238        _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 189  C    REAL ARRAYS Line 249  C    REAL ARRAYS
249        _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)
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)
253          _RL streamice_sigma_coord (Nr)
254          _RL streamice_delsigma (Nr)      
255    
256    #ifdef USE_ALT_RLOW
257          _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
258    #endif
259    
260    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)
263          _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)
265          _RL streamice_v_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
266          _RL streamice_omega (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
267          _RL streamice_basal_geom
268         & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
269          _RL visc_streamice_full
270         & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
271          _RL streamice_vert_shear_uz (Nr)
272          _RL streamice_vert_shear_vz (Nr)
273    #endif      
274          
275                
276    !! IMPORTANT: MELT RATE IN METERS PER YEAR
277    !! POSITIVE WHERE MELTING
278          _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.3  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22