15 |
& streamice_kx_b_init, streamice_ky_b_init, |
& streamice_kx_b_init, streamice_ky_b_init, |
16 |
& streamice_wgt_drift, streamice_wgt_surf, |
& streamice_wgt_drift, streamice_wgt_surf, |
17 |
& streamice_wgt_avthick, streamice_wgt_vel, |
& streamice_wgt_avthick, streamice_wgt_vel, |
18 |
|
& streamice_wgt_tikh, |
19 |
& streamice_addl_backstress |
& streamice_addl_backstress |
20 |
_RL streamice_density, streamice_density_ocean_avg |
_RL streamice_density, streamice_density_ocean_avg |
21 |
_RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min |
_RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min |
31 |
_RL streamice_kx_b_init, streamice_ky_b_init |
_RL streamice_kx_b_init, streamice_ky_b_init |
32 |
_RL streamice_wgt_drift, streamice_wgt_surf |
_RL streamice_wgt_drift, streamice_wgt_surf |
33 |
_RL streamice_wgt_avthick, streamice_wgt_vel |
_RL streamice_wgt_avthick, streamice_wgt_vel |
34 |
|
_RL streamice_wgt_tikh |
35 |
_RL streamice_addl_backstress |
_RL streamice_addl_backstress |
36 |
|
|
37 |
|
|
80 |
CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile |
CHARACTER*(MAX_LEN_FNAM) STREAMICEsigcoordFile |
81 |
CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile |
CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile |
82 |
CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig |
CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig |
83 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstConfig |
84 |
CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile |
CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile |
85 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile |
86 |
CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile |
CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile |
87 |
|
|
88 |
|
! THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES |
89 |
|
! (i.e. boundaries that do not conform with rectangular walls) |
90 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEhmaskFile |
91 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEuFaceBdryFile |
92 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEvFaceBdryFile |
93 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEuDirichValsFile |
94 |
|
CHARACTER*(MAX_LEN_FNAM) STREAMICEvDirichValsFile |
95 |
|
|
96 |
|
|
97 |
COMMON /STREAMICE_PARM_C/ |
COMMON /STREAMICE_PARM_C/ |
98 |
& STREAMICEthickInit, |
& STREAMICEthickInit, |
99 |
& STREAMICEthickFile, |
& STREAMICEthickFile, |
103 |
& STREAMICEdelsigFile, |
& STREAMICEdelsigFile, |
104 |
& STREAMICEbasalTracConfig, |
& STREAMICEbasalTracConfig, |
105 |
& STREAMICEbasalTracFile, |
& STREAMICEbasalTracFile, |
106 |
& STREAMICEvelOptimFile |
& STREAMICEvelOptimFile, |
107 |
|
& STREAMICEhmaskFile, |
108 |
|
& STREAMICEuFaceBdryFile, |
109 |
|
& STREAMICEvFaceBdryFile, |
110 |
|
& STREAMICEuDirichValsFile, |
111 |
|
& STREAMICEvDirichValsFile, |
112 |
|
& STREAMICEGlenConstFile, |
113 |
|
& STREAMICEGlenConstConfig |
114 |
|
|
115 |
C -------------------------- LOGICAL PARAMS --------------------------------------------------- |
C -------------------------- LOGICAL PARAMS --------------------------------------------------- |
116 |
|
|
241 |
& STREAMICE_dummy_array, |
& STREAMICE_dummy_array, |
242 |
& C_basal_friction, |
& C_basal_friction, |
243 |
& A_glen, |
& A_glen, |
244 |
& BDOT_streamice, |
& BDOT_streamice, ADOT_streamice, ! mass balances in meters per year |
245 |
& streamice_sigma_coord, streamice_delsigma, |
& streamice_sigma_coord, streamice_delsigma, |
246 |
& H_streamice_prev |
& H_streamice_prev |
247 |
|
|
299 |
#endif |
#endif |
300 |
|
|
301 |
|
|
302 |
|
_RL ADOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
303 |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
!! IMPORTANT: MELT RATE IN METERS PER YEAR |
304 |
!! POSITIVE WHERE MELTING |
!! POSITIVE WHERE MELTING |
305 |
_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) |