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 |