LOGICAL useIDEMIX
& useIDEMIX
IF ( useIDEMIX) CALL GGL90_IDEMIX(
IF ( useIDEMIX ) THEN
IF ( useIDEMIX .AND. IDEMIX_wind_file .NE. ' ' ) THEN
IF ( useIDEMIX) THEN
IF ( useIDEMIX .AND. IDEMIX_tidal_file .NE. ' ' ) THEN
IF (useIDEMIX) THEN
useIDEMIX = .FALSE.
CALL WRITE_0D_L(useIDEMIX,INDEX_NONE, 'useIDEMIX =',
& GGL90_dirichlet, calcMeanVertShear, useIDEMIX