File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_growth.F |
1018 |
SEAICE_GROWTH |
tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J) |
./pkg/seaice/seaice_growth.F |
257 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = 0.0 _d 0 |
./pkg/seaice/seaice_growth.F |
590 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = a_QbyATM_cover(I,J) |
./pkg/seaice/seaice_growth.F |
604 |
SEAICE_GROWTH |
O a_QbyATM_cover, a_QSWbyATM_cover, a_FWbySublim, |
./pkg/seaice/seaice_growth.F |
622 |
SEAICE_GROWTH |
& a_QbyATM_cover(I,J) * AREApreTH(I,J) |
./pkg/seaice/seaice_growth.F |
661 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = a_QbyATM_cover(I,J) |
./pkg/seaice/seaice_growth.F |
670 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=a_QbyATM_cover(I,J) |
./pkg/seaice/seaice_growth.F |
687 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0. _d 0 |
./pkg/seaice/seaice_growth.F |
870 |
SEAICE_GROWTH |
IF ( a_QbyATM_cover(I,J).GE. 0. _d 0 ) THEN |
./pkg/seaice/seaice_growth.F |
99 |
SEAICE_GROWTH |
_RL a_QbyATM_cover (1:sNx,1:sNy) |