& useImportVsq, useImportFlxCO2
LOGICAL useImportVsq, useImportFlxCO2
IF ( useImportVsq ) THEN
CALL WRITE_0D_L( useImportVsq , INDEX_NONE,
& useImportVsq, useImportFlxCO2,
useImportVsq = .TRUE.