| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
143 |
SEAICE_GROWTH |
_RL rodt, rrodt |
|
./pkg/seaice/seaice_growth.F |
775 |
SEAICE_GROWTH |
rodt = ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
776 |
SEAICE_GROWTH |
rrodt = 1./rodt |
|
./pkg/seaice/seaice_growth.F |
781 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = -a_FWbySublim(I,J)*rodt |
|
./pkg/seaice/seaice_growth.F |
786 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
823 |
SEAICE_GROWTH |
rodt = 1. _d 0 |
|
./pkg/seaice/seaice_growth.F |
824 |
SEAICE_GROWTH |
rrodt = 1./rodt |
|
./pkg/seaice/seaice_growth.F |
828 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HEFF(I,J,bi,bj)) |