/[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.5 by dgoldberg, Mon Jul 30 19:04:55 2012 UTC revision 1.11 by dgoldberg, Tue Oct 2 00:05:24 2012 UTC
# Line 10  C     -------------------------- REAL PA Line 10  C     -------------------------- REAL PA
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_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,
15         & streamice_kx_b_init, streamice_ky_b_init
16        _RL streamice_density, streamice_density_ocean_avg        _RL streamice_density, streamice_density_ocean_avg
17        _RL A_glen_isothermal, n_glen, eps_glen_min        _RL A_glen_isothermal, n_glen, eps_glen_min
18        _RL C_basal_fric_const        _RL C_basal_fric_const
# Line 21  C     -------------------------- REAL PA Line 23  C     -------------------------- REAL PA
23        _RL streamice_nonlin_tol_fp        _RL streamice_nonlin_tol_fp
24        _RL streamice_CFL_factor        _RL streamice_CFL_factor
25        _RL streamice_adjDump        _RL streamice_adjDump
26          _RL streamice_bg_surf_slope_x, streamice_bg_surf_slope_y
27          _RL streamice_kx_b_init, streamice_ky_b_init
28                
29  C     parms for parameterized initial thickness  C     parms for parameterized initial thickness
30  C     SHELF_MAX_DRAFT: max thickness of ice in m  C     SHELF_MAX_DRAFT: max thickness of ice in m
# Line 63  C     -------------------------- CHAR PA Line 67  C     -------------------------- CHAR PA
67        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickFile
68        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit        CHARACTER*(MAX_LEN_FNAM) STREAMICEthickInit
69        CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile
70          CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordInit
71          CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile
72          CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile
73          CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig
74          CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile
75          CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile
76        COMMON /STREAMICE_PARM_C/        COMMON /STREAMICE_PARM_C/
77       &     STREAMICEthickInit,       &     STREAMICEthickInit,
78       &     STREAMICEthickFile,       &     STREAMICEthickFile,
79       &     STREAMICEcalveMaskFile       &     STREAMICEcalveMaskFile,
80         &     STREAMICEsigcoordInit,
81         &     STREAMICEsigcoordFile,
82         &     STREAMICEdelsigFile,
83         &     STREAMICEbasalTracConfig,
84         &     STREAMICEbasalTracFile,
85         &     STREAMICEvelOptimFile
86            
87  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------
88    
# Line 79  C     -------------------------- LOGICAL Line 95  C     -------------------------- LOGICAL
95        LOGICAL STREAMICE_calve_to_mask        LOGICAL STREAMICE_calve_to_mask
96        LOGICAL STREAMICE_construct_matrix        LOGICAL STREAMICE_construct_matrix
97        LOGICAL STREAMICE_lower_cg_tol        LOGICAL STREAMICE_lower_cg_tol
98          LOGICAL STREAMICE_diagnostic_only
99          LOGICAL STREAMICE_ppm_driving_stress
100          LOGICAL STREAMICE_h_ctrl_const_surf
101          
102    C     The following parameters specify periodic boundary conditions.
103    C     For now this will completely override all other boundary conditions
104    C     and apply to the entire boundary
105    
106          LOGICAL STREAMICE_NS_periodic
107          LOGICAL STREAMICE_EW_periodic
108          
109    C      LOGICAL STREAMICE_hybrid_stress
110          
111        COMMON /STREAMICE_PARM_L/        COMMON /STREAMICE_PARM_L/
112       & STREAMICEison,       & STREAMICEison,
113       & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio,       & STREAMICE_dump_mdsio, STREAMICE_tave_mdsio,
# Line 86  C     -------------------------- LOGICAL Line 115  C     -------------------------- LOGICAL
115       & STREAMICE_GL_regularize, STREAMICE_move_front,       & STREAMICE_GL_regularize, STREAMICE_move_front,
116       & STREAMICE_calve_to_mask,       & STREAMICE_calve_to_mask,
117       & STREAMICE_construct_matrix,       & STREAMICE_construct_matrix,
118       & STREAMICE_lower_cg_tol       & STREAMICE_lower_cg_tol,
119         & STREAMICE_NS_periodic, STREAMICE_EW_periodic,
120         & STREAMICE_diagnostic_only,
121         & STREAMICE_ppm_driving_stress,
122         & STREAMICE_h_ctrl_const_surf
123    
124  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------  C     -------------------------- AND NOW ARRAYS ---------------------------------------------------
125    
# Line 175  C    REAL ARRAYS Line 208  C    REAL ARRAYS
208       &     u_bdry_values_SI,       &     u_bdry_values_SI,
209       &     v_bdry_values_SI,       &     v_bdry_values_SI,
210       &     STREAMICE_dummy_array,       &     STREAMICE_dummy_array,
211       &     C_basal_friction       &     C_basal_friction,
212         &     A_glen,
213         &     BDOT_streamice,
214         &     streamice_taubx, streamice_tauby,
215         &     streamice_u_surf, streamice_v_surf,
216         &     visc_streamice_full, streamice_omega, streamice_basal_geom,
217         &     streamice_vert_shear_uz, streamice_vert_shear_vz,
218    #ifdef USE_ALT_RLOW
219         &     R_low_si,
220    #endif
221         &     streamice_sigma_coord, streamice_delsigma
222    
223    
224        _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)
225        _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)
226        _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 192  C    REAL ARRAYS Line 237  C    REAL ARRAYS
237        _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)
238        _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)
239        _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)
240          _RL A_glen    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
241    #ifdef USE_ALT_RLOW
242          _RL R_low_si    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
243    #endif
244    
245    C      The following arrays are used for the hybrid stress balance      
246          
247          _RL streamice_taubx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
248          _RL streamice_tauby (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
249          _RL streamice_u_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
250          _RL streamice_v_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
251          _RL streamice_omega (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
252          _RL streamice_basal_geom
253         & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
254          _RL visc_streamice_full
255         & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
256          _RL streamice_vert_shear_uz (Nr)
257          _RL streamice_vert_shear_vz (Nr)
258          _RL streamice_sigma_coord (Nr)
259          _RL streamice_delsigma (Nr)
260          
261    !! IMPORTANT: MELT RATE IN METERS PER YEAR
262    !! POSITIVE WHERE MELTING
263          _RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
264                
265        _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)
266                
267              
268          COMMON /STREAMICE_COST_RL/
269         &       cost_func1_streamice
270          _RL cost_func1_streamice(nSx,nSy)
271          
272  C    NOTES :  C    NOTES :
273  C      REAL ARRAYS THAT COMPRISE "STATE":  C      REAL ARRAYS THAT COMPRISE "STATE":
274  C       H_streamice,  C       H_streamice,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22