File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
1052 |
MOISTIO |
cldras = min( max( cldras_lw(i,j,L)*cldras_mem,cpen(i,j,L)), |
./pkg/fizhi/fizhi_moist.F |
1055 |
MOISTIO |
cldras = 0.0 |
./pkg/fizhi/fizhi_moist.F |
1060 |
MOISTIO |
if( cldras.lt.cldmin ) cldras = 0.0 |
./pkg/fizhi/fizhi_moist.F |
1063 |
MOISTIO |
cldnow = max( cldlsp,cldras ) |
./pkg/fizhi/fizhi_moist.F |
1068 |
MOISTIO |
cldras_lw(i,j,L) = (nlwcld*cldras_lw(i,j,L) + cldras)/(nlwcld+1) |
./pkg/fizhi/fizhi_moist.F |
1075 |
MOISTIO |
cldras = min( max(cldras_sw(i,j,L)*cldras_mem, cpen(i,j,L)), |
./pkg/fizhi/fizhi_moist.F |
1078 |
MOISTIO |
cldras = 0.0 |
./pkg/fizhi/fizhi_moist.F |
1083 |
MOISTIO |
if( cldras.lt.cldmin ) cldras = 0.0 |
./pkg/fizhi/fizhi_moist.F |
1086 |
MOISTIO |
cldnow = max( cldlsp,cldras ) |
./pkg/fizhi/fizhi_moist.F |
1091 |
MOISTIO |
cldras_sw(i,j,L) = (nswcld*cldras_sw(i,j,L) + cldras)/(nswcld+1) |
./pkg/fizhi/fizhi_moist.F |
57 |
MOISTIO |
_RL cldnow,cldlsp_mem,cldlsp,cldras_mem,cldras |