| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth_if.F |
1120 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
305 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
330 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = MAX(0. _d 0,AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
354 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
358 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
365 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./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 |
370 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
639 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_growth_if.F |
640 |
SEAICE_GROWTH_IF |
& (1. -AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
647 |
SEAICE_GROWTH_IF |
S_hsnow(I,J) = AREANm1(I,J,bi,bj)* ( |
|
./pkg/seaice/seaice_growth_if.F |
679 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
682 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
686 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
697 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./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 |
703 |
SEAICE_GROWTH_IF |
& (1-AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
710 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./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 |
723 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./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 |
728 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREANm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
853 |
SEAICE_GROWTH_IF |
& QSWI(I,J) * ( AREANm1(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_growth_if.F |
854 |
SEAICE_GROWTH_IF |
& QSWO(I,J) * (1. - AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
892 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth_if.F |
894 |
SEAICE_GROWTH_IF |
& + (1.0 - AREANm1(I,J,bi,bj)) * |
|
./pkg/seaice/seaice_growth_if.F |
933 |
SEAICE_GROWTH_IF |
& * ( ONE - AREANm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
935 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
963 |
SEAICE_GROWTH_IF |
& -(QNET(I,J,bi,bj)-QSWO(I,J))*(1. -AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
967 |
SEAICE_GROWTH_IF |
& -F_io_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
970 |
SEAICE_GROWTH_IF |
& -F_ia_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |