| File |
Line number |
Procedure |
Code |
|
./lsopt/cubic.F |
20 |
CUBIC |
z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t) |
|
./lsopt/cubic.F |
2 |
CUBIC |
subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper ) |
|
./lsopt/cubic.F |
7 |
CUBIC |
double precision t, f, fp, ta, fa, fpa, tlower, tupper |
|
./pkg/fizhi/fizhi_moist.F |
2607 |
CTEI |
_RL k,krd,kmm,f |
|
./pkg/fizhi/fizhi_moist.F |
2630 |
CTEI |
f = 1.0 - min( 1.0 _d 0, max(0.0 _d 0,1.0-exp(-s)) ) |
|
./pkg/fizhi/fizhi_moist.F |
2632 |
CTEI |
cldfrc(i,L) = cldfrc(i,L)*f |
|
./pkg/fizhi/fizhi_moist.F |
2633 |
CTEI |
cldwat(i,L) = cldwat(i,L)*f |