| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
114 |
MOISTIO |
_RL TMP1(ISTRIP,lm), TMP2(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
410 |
MOISTIO |
TMP1(I,2) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
411 |
MOISTIO |
TMP1(I,3) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
417 |
MOISTIO |
TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
418 |
MOISTIO |
TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
422 |
MOISTIO |
TMP1(I,4) = 1. / ( (PLE(I,lm+1)-PLE(I,NSUBCL))/sp(I) ) |
|
./pkg/fizhi/fizhi_moist.F |
423 |
MOISTIO |
TH(I,NSUBCL) = TMP1(I,2)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
424 |
MOISTIO |
SHL(I,NSUBCL) = TMP1(I,3)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
436 |
MOISTIO |
TMP1(I,2) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
440 |
MOISTIO |
TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
444 |
MOISTIO |
UL(I,NSUBCL,NT) = TMP1(I,2)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
655 |
MOISTIO |
. PLK,TH,TMP1,TMP2,TMP3,ITMP1,ITMP2,PCNET,PRECIP, |
|
./pkg/fizhi/fizhi_moist.F |
665 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
667 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),delqgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
670 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
672 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),deltgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
677 |
MOISTIO |
TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv |
|
./pkg/fizhi/fizhi_moist.F |
682 |
MOISTIO |
TMP1(I,L) = (SHL(I,L)-saveq(I,L)) * 1000. * sday * tminv |
|
./pkg/streamice/eta_gl_prime_streamice.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_prime_streamice.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/eta_gl_prime_streamice.F |
30 |
NO PROCEDURE |
& 0.5*M1 * (1-TMP1) + |
|
./pkg/streamice/eta_gl_prime_streamice.F |
31 |
NO PROCEDURE |
& 0.5*M2 * (1+TMP1) |
|
./pkg/streamice/eta_gl_streamice.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_streamice.F |
27 |
NO PROCEDURE |
TMP1 = W/PI * COS(PI*X/W) |
|
./pkg/streamice/eta_gl_streamice.F |
29 |
NO PROCEDURE |
& M1/2 * (X-0.5*W+TMP1) + |
|
./pkg/streamice/eta_gl_streamice.F |
30 |
NO PROCEDURE |
& M2/2 * (X+0.5*W-TMP1) |
|
./pkg/streamice/eta_gl_streamice_prime.F |
19 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/eta_gl_streamice_prime.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/eta_gl_streamice_prime.F |
30 |
NO PROCEDURE |
& 0.5*M1 * (1-TMP1) + |
|
./pkg/streamice/eta_gl_streamice_prime.F |
31 |
NO PROCEDURE |
& 0.5*M2 * (1+TMP1) |
|
./pkg/streamice/phi_gl_streamice.F |
12 |
NO PROCEDURE |
_RL TMP1, PI |
|
./pkg/streamice/phi_gl_streamice.F |
20 |
NO PROCEDURE |
TMP1 = COS (2*PI*X/W) |
|
./pkg/streamice/phi_gl_streamice.F |
21 |
NO PROCEDURE |
PHI_GL_STREAMICE = 0.5 * (1-TMP1) |