| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
151 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
161 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
174 |
SEAICE_CALC_STRAINRATES |
hFacV = (_maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
177 |
SEAICE_CALC_STRAINRATES |
hFacV = hFacV*( _maskS(i-2,j,k,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
197 |
SEAICE_CALC_STRAINRATES |
& - vFld(i+1,j,bi,bj)*_maskS(i ,j,k,bi,bj) ) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
77 |
SEAICE_CALC_STRAINRATES |
_RS hFacU, hFacV, noSlipFac |
|
./pkg/ctrl/ctrl_init_wet.F |
130 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
611 |
CTRL_INIT_WET |
call ACTIVE_WRITE_XYZ( 'maskhFacV', hFacV, 1, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_map_ini.F |
366 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |