| 405 |
c$$$ parameter(nstepx=5) !inclusion-cut increasing steps |
c$$$ parameter(nstepx=5) !inclusion-cut increasing steps |
| 406 |
c$$$ parameter(nstepy=5) |
c$$$ parameter(nstepy=5) |
| 407 |
* --- David flight |
* --- David flight |
| 408 |
|
real maxcuty, maxcutx ! EM GCC4.7 |
| 409 |
parameter(cutystart=30.) |
parameter(cutystart=30.) |
| 410 |
parameter(cutystep=10.) !buoni??? |
parameter(cutystep=10.) !buoni??? |
| 411 |
parameter(cutxstart=5.) |
parameter(cutxstart=5.) |
| 423 |
* -------------------------------------------------- |
* -------------------------------------------------- |
| 424 |
* cloud selection |
* cloud selection |
| 425 |
* -------------------------------------------------- |
* -------------------------------------------------- |
| 426 |
|
integer x_min_start,x_min_step ! EM GCC4.7 |
| 427 |
parameter(x_min_start=4) |
parameter(x_min_start=4) |
| 428 |
parameter(x_min_step=1) |
parameter(x_min_step=1) |
| 429 |
|
|
| 433 |
|
|
| 434 |
common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min |
common/cutxclouds/ncpxz_min,nptxz_min,nplxz_min |
| 435 |
|
|
| 436 |
|
integer y_min_start ! EM GCC4.7 |
| 437 |
parameter(y_min_start=3) |
parameter(y_min_start=3) |
| 438 |
|
|
| 439 |
integer ncpyz_min |
integer ncpyz_min |