| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth_if.F |
1122 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
304 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
328 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = MAX(0. _d 0,HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
353 |
SEAICE_GROWTH_IF |
IF (HEFFNm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
359 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
367 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj)/AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
403 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
484 |
SEAICE_GROWTH_IF |
IF (AreaNm1(I,J,bi,bj)*HEFFNm1(I,J,bi,bj).LE.0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
698 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
701 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
711 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
714 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
724 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
727 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
762 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFFNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
860 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj) - HEFFNm1(I,J,bi,bj) |