| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_thermodynamics.F |
258 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
260 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
262 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
267 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
270 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
90 |
SHELFICE_THERMODYNAMICS |
_RL drKp1, recip_drLoc |