IF (.NOT.ctrlUseGen) THEN
IF ( useCTRL.AND.ctrlUseGen ) THEN
if ( useCTRL.AND.ctrlUseGen) then
IF ( .NOT.ctrlUseGen ) THEN
& ctrlUseGen,
logical ctrlUseGen
if (ctrlUseGen) then
if ( (optimcycle .ge. 0).AND.(.NOT.ctrlUseGen) ) then
if ( (optimcycle .ge. 0).AND.ctrlUseGen ) then
IF ( .NOT. ctrlUseGen ) THEN
IF ( ctrlUseGen ) THEN
& doInitXX, ctrlSmoothCorrel3D, ctrlSmoothCorrel2D, ctrlUseGen,
ctrlUseGen = .TRUE.
ctrlUseGen = .FALSE.
doPackOld = (.NOT.ctrlSmoothCorrel2D).AND.(.NOT.ctrlUseGen)
doPackOld = (.NOT.ctrlSmoothCorrel3D).AND.(.NOT.ctrlUseGen)
&' ctrlUseGen = ',ctrlUseGen,
if (.NOT.ctrlUseGen) then
IF ( (.NOT.useAtmWind).AND.(.NOT.ctrlUseGen) ) THEN