| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
314 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
315 |
SHELFICE_THERMODYNAMICS |
drKp1 = MAX( drKp1, 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
317 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
319 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
325 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
330 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
99 |
SHELFICE_THERMODYNAMICS |
_RL drKp1, recip_drLoc |