| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
219 |
SEAICE_GROWTH |
HICE(I,J) = HEFFNm1(I,J,bi,bj)/areaLoc |
|
./pkg/seaice/seaice_growth.F |
884 |
SEAICE_GROWTH |
GHEFF(I,J) = (HEFF(I,J,bi,bj)-HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
1120 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
302 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
326 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = MAX(0. _d 0,HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
351 |
SEAICE_GROWTH_IF |
IF (HEFFNm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
357 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
365 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj)/AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
401 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
482 |
SEAICE_GROWTH_IF |
IF (AreaNm1(I,J,bi,bj)*HEFFNm1(I,J,bi,bj).LE.0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
696 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
699 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
709 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
712 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
722 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
725 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFFNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
858 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj) - HEFFNm1(I,J,bi,bj) |