| 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 |
1443 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
1457 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
641 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
874 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
878 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1191 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
334 |
SEAICE_GROWTH_IF |
IF (PRECIP(I,J,bi,bj) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
335 |
SEAICE_GROWTH_IF |
PRECIP(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
380 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj)*RHOFW/RHOSN |
|
./pkg/seaice/seaice_growth_if.F |
394 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
932 |
SEAICE_GROWTH_IF |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |