| 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) |