| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
173 |
SEAICE_CALC_STRAINRATES |
hFacU = (_maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj))*third |
|
./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 |
78 |
SEAICE_CALC_STRAINRATES |
_RL third |
|
./pkg/seaice/seaice_calc_strainrates.F |
79 |
SEAICE_CALC_STRAINRATES |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
319 |
SEAICE_ITD_REMAP |
& + g1(i,j,kDonor)*(etaMax**3-etaMin**3)*third |
|
./pkg/seaice/seaice_itd_remap.F |
435 |
SEAICE_ITD_REMAP_LINEAR |
_RL third, sixth |
|
./pkg/seaice/seaice_itd_remap.F |
436 |
SEAICE_ITD_REMAP_LINEAR |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
450 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hActual(i,j) .LT. (2. _d 0*hL(i,j) + hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
452 |
SEAICE_ITD_REMAP_LINEAR |
ELSEIF ( hActual(i,j).GT.(hL(i,j)+2. _d 0*hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
81 |
SEAICE_ITD_REMAP |
_RL third |
|
./pkg/seaice/seaice_itd_remap.F |
82 |
SEAICE_ITD_REMAP |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |