| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
119 |
MOISTIO |
_RL PRECIP(ISTRIP), PCNET(ISTRIP) |
|
./pkg/fizhi/fizhi_moist.F |
655 |
MOISTIO |
. PLK,TH,TMP1,TMP2,TMP3,ITMP1,ITMP2,PCNET,PRECIP, |
|
./pkg/fizhi/fizhi_moist.F |
728 |
MOISTIO |
prep(i) = PRECIP(I) + PCNET(I) |
|
./pkg/fizhi/fizhi_moist.F |
729 |
MOISTIO |
tmp1(i,1) = PRECIP(I) |
|
./pkg/seaice/seaice_growth.F |
583 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREANm1(I,J,bi,bj)*SDF |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
& -PRECIP(I,J,bi,bj)*AREANm1(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
654 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
671 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
686 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1189 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
332 |
SEAICE_GROWTH_IF |
IF (PRECIP(I,J,bi,bj) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
333 |
SEAICE_GROWTH_IF |
PRECIP(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
378 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj)*RHOFW/RHOSN |
|
./pkg/seaice/seaice_growth_if.F |
392 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
930 |
SEAICE_GROWTH_IF |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |