| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
115 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(I,J) * _recip_dxV(I,J,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
56 |
SEAICE_CALC_STRAINRATES |
_RS hFacU, hFacV, noSlipFac |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
552 |
CTRL_INIT_WET |
call ACTIVE_WRITE_XYZ( 'maskhFacV', hFacV, 1, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |