& useImportCO2, useImportWSpd,
LOGICAL useImportWSpd
useImportWSpd = .FALSE.
IF ( ( useImportFice.OR.useImportCO2.OR.useImportWSpd ) .AND.
CALL WRITE_0D_L( useImportWSpd , INDEX_NONE,
useImportWSpd = .TRUE.
IF ( useImportWSpd ) THEN
IF ( useImportWSpd ) _EXCH_XY_RL(wind , myThid )