| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
169 |
SEAICE_GROWTH |
FICE (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
323 |
SEAICE_GROWTH |
FICE (I,J) = FICE(I,J) + FICEP(I,J)/MULTDIM |
|
./pkg/seaice/seaice_growth.F |
334 |
SEAICE_GROWTH |
O FICE, QSWI, |
|
./pkg/seaice/seaice_growth.F |
344 |
SEAICE_GROWTH |
& FICE(I,J) * areaNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
437 |
SEAICE_GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
448 |
SEAICE_GROWTH |
IF(FICE(I,J).LT.ZERO.AND.AREANm1(I,J,bi,bj).GT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
459 |
SEAICE_GROWTH |
FICE (I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
463 |
SEAICE_GROWTH |
FICE(I,J)=-(GHEFF(I,J)-snowEnergy)/ |
|
./pkg/seaice/seaice_growth.F |
482 |
SEAICE_GROWTH |
FHEFF(I,J)= FICE(I,J) * AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
562 |
SEAICE_GROWTH |
& FICE(I,J)*recip_QI*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
580 |
SEAICE_GROWTH |
IF(FICE(I,J).GT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
85 |
SEAICE_GROWTH |
_RL FICE (1:sNx,1:sNy) |