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