| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
139 |
SEAICE_GROWTH |
_RL a_FWbySublim (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
1440 |
SEAICE_GROWTH |
& +a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
279 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
a_FWbySublim (I,J) = a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
604 |
SEAICE_GROWTH |
O a_QbyATM_cover, a_QSWbyATM_cover, a_FWbySublim, |
|
./pkg/seaice/seaice_growth.F |
632 |
SEAICE_GROWTH |
& a_FWbySublim(I,J) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
649 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
675 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = SEAICE_deltaTtherm/SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
676 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
779 |
SEAICE_GROWTH |
IF ( a_FWbySublim(I,J) .LT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
781 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = -a_FWbySublim(I,J)*rodt |
|
./pkg/seaice/seaice_growth.F |
783 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0. _d 0 |
|
./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 |
790 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = a_FWbySublim(I,J) - tmpscal2*rrodt |
|
./pkg/seaice/seaice_growth.F |
828 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
832 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = a_FWbySublim(I,J) - tmpscal2*rrodt |