File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_growth.F |
101 |
SEAICE_GROWTH |
_RL r_QbyATM_cover (1:sNx,1:sNy) |
./pkg/seaice/seaice_growth.F |
1384 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J) |
./pkg/seaice/seaice_growth.F |
1407 |
SEAICE_GROWTH |
DIAGarray(I,J) = r_QbyATM_cover(I,J) * convertHI2Q |
./pkg/seaice/seaice_growth.F |
259 |
SEAICE_GROWTH |
r_QbyATM_cover (I,J) = 0.0 _d 0 |
./pkg/seaice/seaice_growth.F |
670 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=a_QbyATM_cover(I,J) |
./pkg/seaice/seaice_growth.F |
688 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0. _d 0 |
./pkg/seaice/seaice_growth.F |
802 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J)*ICE2SNOW,-HSNOW(I,J,bi,bj)) |
./pkg/seaice/seaice_growth.F |
810 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2/ICE2SNOW |
./pkg/seaice/seaice_growth.F |
849 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)) |
./pkg/seaice/seaice_growth.F |
851 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2 |